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OTROS LENGUAJES 


BASIC 


INTRODUCCION 


L lenguaje BASIC, 


mado por las iniciales 
“Begginer's All-purpo- 
se Symbolic Instruc- 
tion Code" (Código 
Simbólico de Instruc- 
ciones de Tipo Gene- 
ral para inciólanies. fue desarrollado 
en la Universidad de Dartmouth (Estados 
Unidos) por Thomas E. Kurtz y John Ke- 
meny, en la década de los sesenta. 

Hasta su aparición, la programación 
de ordenadores estaba muy restringida a 
los especialistas, ya que, aparte de la di- 
ficultad que entrañaba la programación 
en sí misma, pocas personas podían te- 
ner acceso a máquinas tan costosas. 

Kurtz y Kemeny concibieron el lengua- 
je BASIC con la finalidad de iniciar a los 
estudiantes en la programación. Su éxito 
fue enorme dada la facilidad de comuni- 
cación con la máquina y la rapidez con 
que se obtenían los resultados; ello expli- 
ca, por otra parte, la enorme difusión del 
lenguaje que ha llegado a ser uno de los 
más populares al ser implementado en 
gran número de ordenadores, especial- 
mente en los de tipo doméstico. 

El gran avance que supuso el BASIC ra- 
dica en su naturaleza de lenguaje inter- 
pretado, no compilado, lo que supone 
un gran ahorro de tiempo para el progra- 
mador. 

El BASIC nació para ser un lenguaje fá- 
cil de aprender y sencillo de usar. Pero 
tiene una contrapartida. Al funcionar 


cuyo nombre está for- : 


cada vez en un mayor número de orde- 
nadores de distintas marcas, han apare- 
cido también un gran número de “dialec- 
tos”, es decir, de distintas versiones del 
BASIC. Sin embargo, la diferencia entre 
unas versiones y otras no es muy notable, 
y en lo fundamental suelen ser todas 
iguales. 

El estudio que se inicia a continuación 
va dirigido a cubrir las versiones BASIC de 
un conjunto de ordenadores elegidos en- 
tre los de mayor uso en la actualidad. 


O ¿Qué es el Basic? 


Todo este conjunto de palabras “raras” 
constituyen lo que se denomina un pro- 
grama en BASIC, 

Aunque parezca sorprendente este 
programa nos permite traducir cualquier 
día de la semana a tres idiomas distintos: 
inglés, francés y alemán. Primero el orde- 
nador nos preguntará qué día queremos 
traducir (en español). Una vez que le ha- 
yamos dado la respuesta nos da a elegir 
el idioma que deseamos. Después de he- 
cha la elección el ordenador imprime en 
pantalla el día que le habíamos dicho, la 
traducción al Idioma elegido y el nombre 
de dicho idioma. Sorprendente, ¿ver- 
dad? 

Sin embargo, no se trata de que copie- 
mos en nuestro ordenador este programa 
sin comprender su funcionamiento. Aun- 


que a simple vista pueda parecer que el 
BASIC es tremendamente complicado, 
en realidad, es mucho más sencillo de lo 
que aparenta. 

A lo largo de este capítulo y sucesivos 
vamos a estudiar minuciosamente el len- 
guaje BASIC de modo que ya no tendre- 
mos que limitarnos a copiar programas 
hechos por otros, sino que podremos 
crear nuestros propios programas. 

Comencemos por ver qué es un pro- 
grama. Mucha gente cree que los orde- 
nadores son máquinas inteligentes que 
resuelven todos los problemas. Sin em- 
bargo, cuando encendemos un ordena- 
dor, la máquina no hace absolutamente 
nada. 

El ordenador no hace nada si no se lo 
pedimos correctamente. La forma de pe- 
dirle algo, de decirle lo que queremos 


que haga, se llama programa. Por tanto, 
un programa es un conjunto de instruc- 
ciones que introducimos en el ordenador 
de una forma detallada y ordenada para 
que realice una determinada tarea. Lo 
sorprendente es la velocidad con que 
ejecuta los programas y la capacidad 
de cálculo que tlene, pero no es, ni mu- 
cho menos, una máquina inteligente. 

De modo que vamos a pasar ya a ver 
las diferentes instrucciones BASIC que po- 
demos darle a un ordenador. 


PRINT y algo más 


La instrucción PRINT sirve para indicarle 
al ordenador que debe imprimir algo en 
pantalla (PRINT=imprimir). Pero ¿qué es lo 


HERNIA III 
* PEQUENO DICCIONARIO IBM + 
HIM MMMM MINI 


ES (7) ,1$(7) ,F$(7),0$ (7) 
1=0 TO 7 
READ ES(1) ,1$(1) ,F$(1) ,A$(1) 
NEXT 1 
INPUÍ "¿ QUE DIA DE LA SEMANA QUIERES SABER ? "¿R$ 
CLS 
FOR I=1 TO 7 
IF R$=E$(1) THEN GOTO 140 
NEXT 1 
PRINT "ESO NO ES UN DIA DE LA SEMANA" 
GOTO 90 
LOCATE 6,17:PRINT "IDIOMAS" 
LOCATE 7,17:PRINT " " 
LOCATE 10,15:PRINT "1.- INGLES" 
LOCATE 12,15:PRINT "2.- FRANCES" 
LOCATE 14,15:PRINT "3.- ALEMAN" 
LOCATE 20,8:PRINT "PULSA LA OPCION DESEADA" 
A$=INKEY+$:1F A$="" THEN GOTO 220 
IF ASC(A$)<49 OR ASC(A+)>51 THEN GOTO 220 
CLS 
ON VAL (A$) GOSUB 400,500,600 
LOCATE 20,1:PRINT "¿ QUIERES TRADUCIR OTRO DIA ? (S/N) " 
A$=INKEY$:1F As="" THEN GOTO 270 
IF A$="S" THEN CLS:GOTO 90 
IF A$<>"N" THEN GOTO 270 
CLS :END 
LOCATE 12,1:PRINT R$;" SE ESCRIBE "¿1$(1)3" EN "¿1$(0) 
RETURN 
LOCATE 12,1:PRINT R$;" SE ESCRIBE ";F$(1)3" EN "¿F$(0) 
RETURN 
LOCATE 12,1:PRINT R$;" SE ESCRIBE ";A$(1)3" EN "¿A$(0) 
RETURN 
DATA ESPANOL, INGLES FRANCES , ALEMAN 
DATA LUNES MONDAY ,LUNDI MONTAG 
MARTES, TUESDAY ¿MARDI ,DIENSTAG 
MIERCOLES , WEDNESDAY ,MERCREDI ,MITTNOCH 
JUEVES , THURSDAY , JEUDI , DONNERSTAG 
VIERNES, FRIDAY ,VENDREDI ,FREITAG 
SABADO ,SATURDAY ,SAMEDI ¿SAMSTAG 


DOMINGO ¿SUNDAY ¿DIMANCHE ,SONNTAG 


pl BASIC 


que puede imprimir? Podríamos decir 
que lo que queramos, pero más concre- 
tamente puede imprimir datos numéricos 
o alftanuméricos. Estos datos pueden ser 
constantes o variables, sin embargo, de 
momento vamos a centrarnos en los 
constantes. 

Las constantes numéricas son los núme- 
ros, reales por supuesto, positivos, nega- 
tivos, enteros o decimales. De todos mo- 
dos, los números que maneja el ordena- 
dor tienen unos límites. La tabla de la fi- 
gura 1 muestra los números positivos ma- 
yor y menor que pueden manejar los 
principales ordenadores. Los valores es- 
tán representados en notación científica. 


LIMITES DE LOS NUMEROS REALES POSITIVOS 


Número real Número real 
positivo máximo positivo minimo 


1.75 + 38 1£-38 
4.75 + 38 2.93873588E-39 


¡BM 10€ + 38 1E-38 
MSX 4.7E + 38 15-38 


SPECTRUM 1E + 38 4E-39 


AMSTRAD 


COMMODORE 


Análogamente, los números negativos 
también tienen unos límites. En cualquier 
caso, es muy dlifícll que alcancemos es- 
tos límites en programas normales. 


Probemos a teclear la siguiente orden: 
PRINT 12345 


Le hemos dicho al ordenador que im- 
prima en pantalla el numero 12345; sin 
embargo, la máquina no hace nada. 


Para que el ordenador cumpla cualquier 
orden BASIC debemos pulsar la tecla /N- 
TRO y el ordenador obedecerá al instan- 
te. Hay ordenadores que denominan de 
forma diferente esta tecla, tal y como po- 
demos ver en la figura, pero su misión 
es la misma. h 


DISTINTOS NOMBRES DE LA TECLA INTRO 


AMSTRAD 
COMMODORE 


INTRO o ENTER 
RETURN 


ENTER o RETURN 
0———Y 


Por tanto, después de pulsar INTRO ha 
aparecido en pantalla el número 12345, 
Sin embargo, esta orden no constituye to- 
davía un programa, sino que es lo que se 
denomina un comando directo. Los co- 
mandos directos se ejecutan en cuanto 
pulsamos INTRO y no se almacenan en 
memoria. 

Los programas son la forma usual de 
funcionamiento en BASIC. Cuando traba- 
jamos de este modo, el ordenador va al- 
macenando las órdenes en su memoria 
cada vez que pulsamos INTRO, y no las 
ejecutará hasta que no se lo indiquemos 
de forma expresa. 

Para diferenciar una instrucción de un 
programa de un comando directo basta 
con poner un número delante de la or- 
den. 


Si tecleamos ahora: 
10 PRINT 12345 


« al pulsar INTRO la orden no se realiza, sino 
que se almacena en la memoria. Ahora 
podemos escribir: 


20 PRINT 67890 


al pulsar INTRO esta instrucción se alma- 
cena en memoria junto a la anterior. De 
este modo ya tenemos un programa for- 
mado por dos insirucciones. 

Vamos a realizar un nuevo programa, 
pero antes debemos borrar el antiguo de 
la memoria, ya que no podemos almace- 
nar en memoria más de un programa si- 
multáneamente. 

Para borrar la memoria tenemos que 
teclear el comando NEW y a continua- 
ción pulsar INTRO. Además, es posible 
que la pantalla esté llena de cosas. Si 
queremos borrarla y dejarla limpia no te- 
nemos más que teclear el comando CLS. 
Algunos ordenadores disponen de la te- 
cla CLEAR para borrar la pantalla. 

No debemos confundir NEW con CLS, ya 
que CLS borra la pantalla pero no la me- 
moria, mientras que NEW borra la memo- 
ria, pero no la pantalla (excepto en el 
SPECTRUM, que también borra la Ppanta- 
lla). Por tanto, NEW es mucho más peli- 
groso. 

Comencemos ahora un nuevo progra- 
ma: 


10 PRINT “IMPRESION DE CADENAS" 
20 PRINT “2468$" 


Al ejecutar este programa (con el co- 
mando RUN) aparecerá en pantalla la 
frase IMPRESION DE CADENAS y debajo 
2468$. Las comillas ya no aparecen, ya 
que, en realidad, su misión es indicarle al 
ordenador que está manejando una ca- 
dena, y, por tanto, no las imprime. 

Finalmente, probemos a borrar la pan- 
talla (CLS). Si ahora queremos volver a 
ejecutar el programa no tenemos más 


que teclear otra vez RUN. Sin embargo, si 
lo que queremos es volver a ver el pro- 
grama que hemos hecho, lo que se de- 
nomina el listado del programa, teclea- 
remos el comando LIST (y luego INTRO). 
De este modo volverán a aparecer en 
pantalla todas las instrucciones que 
constituyen el programa y que están al- 
macenadas en memoria. 


Amstrad y MSX) 


L Z-80 es uno de los 
microprocesadores 
de 8 bits más usados 
del mercado. Debido 
a su versátil conjunto 
de 158 instrucciones 
NN pueden realizarse 
AAA AA complejos progra- 
mas con muy pocas instrucciones. 

Su bus de direcciones es de 16 bits, por 
lo que será capaz de direccionar 65.536 
posiciones distintas de memoria (64 
Kbytes). Como cada posición de memo- 
ria es de sólo 8 bits, para almacenar una 
dirección en memoria se necesitarán dos 
palabras consecutivas de 8 bits. 

Como, en general, cada instrucción 
opera sobre alguna posición de memo- 
ria, deberá llevar la dirección de dicha 
posición. Por tanto, las instrucciones se 
compondrán de dos campos distintos: el 
campo de operación, que indica la ins- 
trucción a ejecutar, y el campo de direc- 
ción, que indica la posición de memoria 
con que se desea operar. Según la lon- 
gitud de estos distintos campos, así será 
la longitud de la instrucción, por lo que 
existirán instrucciones que ocuparon 1, 2, 
3 ó 4 bytes. 

Además de la memoria externa existen 
en la CPU una serie de registros. 

Estos registros están divididos en dos 
partes: registros de uso general y regis- 
tros especiales. 


Juego principal Juego alternativo 


Acumulador Flags. Acumulador Flags. 
== A F A Pp 


Registros 
generales 


MAQUINA 2-80 


ARQUITECTURA DEL Z-80 
(Para los ordenadores Spectrum, 


Los registros de uso general son los uti- 
lizables por el usuario. 

De éstos existen dos juegos, pero para 
operar sólo se utiliza el juego principal. El 
uso del juego alternativo es para realizar 
copias de todos los registros mediante 
una única instrucción. 

Estos registros pueden usarse como 8 
de 8 bits (A,F,B,C,D,E,H,L,) o como 4 de 16 
bits (AF, BC, DE, HL). 

Los registros especiales son los usados 
por la CPU para almacenar sus datos. 

El registro A es el usado como acumu- 
lador por la CPU. 

El registro F es el de estado de la CPU 
que contiene las siguientes banderas, o 
flags: 


S: Signo. 

Z: Cero. 

X: Sin significado especial. 

H: Semiarrastre. 

P/V: Paridad/Desbordamiento. 
C: Arrastre. 


Los registros especiales son los usados 
por la CPU para sus datos. Estos son: 


SS El contador de programa (PC) de 16 
bits. 
— El puntero de la pila (SP) de 16 bits. 
— Dos registros índice para direccio- 
namiento indexado de 16 bits cada uno. 
— Un registro de interrupción de 8 bits. 
— Un registro de refresco de memoria 
usado por el hardware de la CPU. 


Vector in- Refresco 
Ea soi Eo 


Registros 
especiales 


El significado, uso y misión de las ban- 
deras y los registros indicados anterior- 
mente se verá con más detalle al expli- 
car, en otros capítulos, las diversas ins- 
trucciones. 


| Conjunto de instrucciones 
mu del microprocesador Z-80 


A continuacion proporcionamos al lec- 
tor una tabla con todas las microinstruc- 
ciones del Z-80 y una explicación simbó- 
lica de cada una de ellas, que será de 
gran utilidad a la hora de programar en 
ensamblador. Por eso aconsejamos que 
se tenga presente esta tabla en futuros 
apartados de lenguaje máquina de Z-80. 


Las instrucciones están clasificadas en 
los grupos siguientes: 


Cargas de 8 bits. 
Cargas de 16 bits. 
Intercambios. 
Movimiento de bloques de memo- 
ri 
Búsqueda de bloques de memoria. 
Aritmética y lógica de 8 bits. 
Aritmética y lógica de 16 bits. 
Operaciones de uso general en 
acumulador con banderas. 

— Instrucciones varias. 

— Rotaciones y desplazamientos. 

— Comprobación y puestas a cero y 
uno de bits. 

— Entradas y salidas. 

— Saltos. 

— Llamadas. 

— Inicializaciones. 

— Retornos. 


Q 
PAE DEN 


En la tabla se usan los siguientes símbo- 
los: 


"b = un n.* binario en un registro de 8 bits 
o de una posición de memoria. 


"CC = Códigos de estado de las bande- 


ras (Flags). 

NZ = No es cero. 

Z =Es cero. 

NC = No hay “carry”. 
C = Hay “carry”. 


PO = Paridad impar / no desbordamiento. 
PE = Paridad par / desbordamiento (over- 
flow). 

P = Valor positivo. 

M = Negativo (M — menos). 

*d = Destino de 8 bits (registro o posición 
de memoria). 

“dd = Destino de 16 bits (registro o memo- 
ria). 

"e = Desplazamiento de 8 blts en comple- 
mento a 2 con signo utilizado en saltos re- 
lativos y direccionamiento indexado. 

*“L = 8 posiciones especiales de memoria 
de la página cero. 


En notación decimal son 0, 8, 16, 24, 32, 
40, 48 y 56. 


*n = Cualquier número de 8 bits. 


"nn = Cualquier número de 16 bits. 

*r = Cualquier registro de propósito gene- 
ral de 8 bits (A,B,C,D,E,H, Ó L). 

*"S = Cualquier registro de 8 bits o posición 
de memoria como fuente. 

"Sb = Un bit en un registro de 8 bits o po- 
sición de memoria específicos. 

“SS = Cualquier registro de 16 bits o 2 po- 
siciones de memoria como fuente. 
"Suscrito con “L“= Los 8 bits menos signifi- 
cativos de un registro de 16 bits. 
"Suscrito con “'H"' = Los 8 bits más significa- 
tivos de un registro de 16 bits. 

*()= El contenido entre paréntesis es uli- 
lizado como puntero de una dirección 
de memoria o de E/S. 

“Los registros de 8 bits son: 


A,B,C,D,E,H,L,! y R. 

"Los pares de 2 registros (16 bits) son: 
AF,BC,DE y HL 

“Los registros de 16 bits son: 
SP,PC,IX e IY 


*Los modos de direccionamiento utiliza- 
dos incluyen combinaciones de los si- 
guientes: 


Inmediato. 

Inmediato extendido. 
Modificando página cero. 
Relativo. 

Extendido. 

indexado. 

Registro. 

Implicado. 

Indirecto con registro. 

Bit. 


MAQUINA 2-80 


Juego alternativo 


Juego principal 


Registros 
generales 
Vector in- 
terrupciones memoria 
1 R 
Registro índice /X Registros 
especiales 


Registro índice /Y 
Puntero del stack SP 
Contador de programa PC 


s=1,n (HL) 
Med (1Y+8) 
d=(HL),r 
(IX+8),(1Y+0) 
d=(HL), 
(+8), (1Y+0) 
s=(BC),(DE), 
(nm), 1R, 
d=(BC).(DE). 
(am LR, 


dd=BC,DE, 
HL,SP,IX1Y 
(d=BC,DE, 
HL, SP, IX, IY 
ss=BC,DE, 
HL,SP,IX,IY, 


CARGAS DE 8 BITS 


(SP-1)s9u (SP-2)-5S 
dd,—(SP),dd;-—(SP+1) 


CARGAS DE 16 BITS 


HLAF, IX,1Y 


INTERCAMBIOS 


ss=HL,1X,1Y 


(DE)=—(HL),DE-—DE+1 
HL-—HL+1,BC--BC-=1 
(DE)—(HL), DE-—DE+1 
HL-—HL+1,B0=-BC-1 
Repite hasta BC=0 
(DE)=—(HL), DE-—DE-1 
HL-—HL-1,BC--BC-1 
Repite hasta BC=0 


AHD), HL-—HL+1 
BC--BC-1 

A-(HD), HL-—HL+1 
BC--BC-1, Repite 
hasta BC=0 o A=(HL) 
AHD), HL-—HL-1 
BC-«-BC-1 

A-(HLD), HL-—HL=1 
BC--BC-1, Replte 
hasta BC=0 o A=(HL) 


A-(HL) Sólo afecta a los 
flags, no 0 A 


n 
*=, 
=] 
= 
ca 
uy 
a 
> 
o 
= 
ES 
[a] 
3 
==] 
ul 
a 
< 
2 
3 
[72] 
E] 
co 


CY es el flag del ca- 
rry 

S=1,n,(HL) 
(IX+0),(1Y+8) 


s=",n,(HL) 
(IX+0), ((Y+0) 
d=r,(HL) 
(1X+0),(1Y+0) 


OPERACIONES DE 8 BITS 


Z es el flag de cero 
s=1,(HL) 
(1X+8),(1Y+8) 


Mnemotécnico 


ADD HL,ss HL-—HL+ss 

ADC HL, ss HL-—HL+ss+CY 
SBC HL,ss HL-—HL-=ss-CY 
ADD IX,ss I—IX+SS 


Comentario 


ADD lY,ss IY-—IY+ss 


INC dd 


dd-—dd+1 


Convierte el cont, de A en formato 
rte luego suma O resta. 


El operando debe estar 
en formato BCD. 


OPS.A y FLAGS| OPERACIONES 16 BITS 


Para la CPU 
Desactiva Interrup. 
Activa interrupciones 
Activa modo INT.O 
Activa modo INT.1 
Activa modo INT.2 


INS. VARIAS 


Llamada directamente 


s=R,(HL) 
(1X+8),(1Y+8) 


ROTACIONES Y DESPLAZAMIENTOS 


Activa flags 


q: (0, ,HL=HL+1 
(HL)CC),HL—HL+1 
B-B-1 


Repair hasta B=0 
(HL)-—(C),HL-=—HL-1 
B--B-1 


(HL)-=—(C),HL=—HL=1 
B--B-1 

Repetir hasta B=0 
(nm) 

(Cr 
(C)-—(HL),HL-—HL+1 
B--8-1 

(Oo HL<-HL+1 


COAH 
8-B-1 


INIR 


IND 


INDR 


OUT(n),A 
OUT(C),r 
ouT| 


ENTRADA/SALIDA 


OTIR 
OTDR 


Repetir hasta B=0 


PC-—an 
Si condición es verdad 
PC-—nn,sino continuar 
PC-—PC+8 

Si condición kk es verdad 
PC-—PC+e, sino continuar 
PC=-Ss 

B--B=1 Si B=0 
continuar, sino 
PC-—PC+8 


(SP-1)=PCy 
(SP-2)-=-PC,PO-—nn 

Si condición cc es falsa continuar, 
sino € igual que CALL nn 


CALL nn 


CALL cc,nn 


PC.+(SP) 
POH —(SP+1) 

Si condi. cc es falsa continuar, sino 
a Igual a RET 

Retorno de inter, =RET 

Retorno de interrupción no masca- 
rable 


OS lenguajes de alto 
nivel como BASIC, 
PASCAL, FORTRAN, 
etc., se caracterizan 
por tener instruccio- 
nes muy potentes 
con las cuales se 
pueden programar 
tareas complicadas de forma relatlva- 
mente sencilla. Otra característica de es- 
tos lenguajes es que son (o tienden a ser) 
independientes de las máquinas, 

Estas dos características, muy desea- 
bles para los usuarios, tienen como con- 
trapartida el hecho de que la velocidad 
de las tareas programadas en estos len- 
guajes es considerablemente menor que 
la velocidad que obtendríamos progra- 
mando las mismas tareas en Lenguaje 
Máquina. Esto es debido a que los com- 
piladores e intérpretes están diseñados 
para los casos generales y no son capa- 
ces de emplear el conjunto de instruc- 
ciones máquina más idóneo para ejecu- 
tar cada tarea concreta. 

Por otra parte, la mayoría de los len- 
guajes de alto nivel no contemplan si- 
quiera la posibilidad de ejecutar algunas 
tareas, como pueden ser, una determi- 
nada gestión de la memoria o de los dis- 
positivos externos. 

Los usuarios que se encuentren con es- 
tas dificultades, o los que simplemente 
quieran conocer con detalle cómo es el 
funcionamiento interno del ordenador, son 
usuarlos potenciales del Lenguaje Má- 
quina. 


MAQUINA 8086 


Todo lo tratado en esta sección es válido para 
la familia de microprocesadores usados en los IBM 
PC que son los 8088, 8086 y 80286 de Intel. En ade- 
lante, y por simplicidad, nos referiremos al 8088 
como representativo de toda la familia. 


1u ¿Qué es el Lenguaje 
ln Máquina? 


Estrictamente hablando, el Lenguaje 
Máquina es el lenguaje que entiende di- 
rectamente el microprocesador. La CPU 
(unidad central de proceso) del IBM PC, 
que es el microprocesador 8088 de Intel, 
recanoce un centenar de instrucciones 
diferentes. Cada instrucción es un grupo 
de 1 a 7 posiciones de memoria (bytes). 

Veamos un ejemplo: los siguientes 20 
bytes constituyen un programa en Len- 
guaje Máquina que escribe repetida- 
mente el carácter «A» sobre la pantalla: 


1€ 31 CO 50 B8 00 BO 8E CO 31 FF B9 CO 03 
B8 41 F1F3 AB CB 


Ningún programa escrito en un lengua- 
je de alto nivel puede realizar esta tarea 
de forma más rápida y concisa. Pero 
¿cuánto tiempo puede tardarse en escri- 
bir programas en este lenguaje? y ¿cuán- 
tos errores pueden cometerse transcri- 
biendo programas de este tipo? 

Los pioneros de la informática progra- 
maban de esta forma, pero afortunada- 
mente pronto se les ocurrió la Idea de 
emplear códigos nemotécnicos que sus- 
tituyeran a los códigos que entiende la 
máquina y que fueran más fáciles de re- 
cordar. A esto se le conoce como «Len- 
guaje Simbólico». El programa que reco- 
noce los códigos nemotécnicos del len- 
guaje simbólico y los traduce al Lengua- 


a MAQUINA 8086 


je Máquina recibe el nombre de «Progra- 
ma Ensamblador». 


Debido a la estrecha relación que exis- 
te entre estos conceptos, se suelen em- 
plear como sinónimos los términos de 
«Lenguaje Máquina», «Lenguaje Simbóll- 
co» y «Lenguaje Ensamblador», 


ID Código Máquina 


Por una vez, podemos emular a los 
pioneros y escribir un programa direc- 
tamente en código máquina. Para ello 
contamos con el programa DEBUG sumi- 
nistrado en el diskette del sistema opera- 
tivo DOS. Si consultamos un diccionario 
de lengua inglesa, nos encontramos con 
que el término «debug» significa «buscar 
y eliminar posibles causas de problemas, 
fallos y errores». Pues bien, este progra- 
ma sirve exactamente para eso, y es una 
ayuda prácticamente indispensable 
para hacer que funcionen correctamen- 
te los programas escritos en Lenguaje 
Máquina. Su uso nos va a facilitar la com- 
prensión de cómo el microprocesador 
ejecuta las instrucciones que le hemos 
programado. 


Cuando desde DOS pedimos la ejecu- 
ción del DEBUG, aparece en la línea si- 
guiente un guión, que es el símbolo con 
el que este programa nos indica que 
está esperando órdenes del usuario. 


A>DEBUG 


El programa es conversacional y admi- 
te 17 Órdenes o «mandatos» diferentes, 
los cuales se especifican con una letra 
(la inicial de la expresión inglesa del 
mandato), seguida (opcionalmente) de 
un espacio en blanco y de unos parúme- 
tros. Los parámetros, que pueden ser muy 
variados, se expresan siempre que son 
numéricos en notación hexadecimal. 


Para los que no estén familiarizados 
con esta forma de expresar los números, 
diremos que al igual que en la notación 
binaria se necesitan dos dígitos (el 0 y el 
1) y en la notación decimal se necesitan 
10(0,1,2,3,4,5,6,7, 8 y 9), en la nota- 
ción hexadecimal se necesitan 16 dígi- 


tos diferentes. El problema de los 6 dígi- 
tos que faltaban se ha resuelto escogien- 
do las 6 primeras letras del abecedario, 
(en vez de inventar símbolos nuevos). De 
esta forma las letras A, B, C, D, E, y F re- 
presenian en esta notación los números 
decimales 10, 11, 12, 13, 14 y 15 respec- 
tivamente. En hexadecimal los números 
del 1 al 50 se escriben así: 


123456789ABCDEF1011 1213 
14 151617 181914 18 1C 1D 1E 1F 20 2] 
22 23 24 25 26 27 28 29 2A 2B 2C 2D 2E 
2F 30 31 32 


El DEBUG considera equivalentes a to- 
dos los efectos las letras mayúsculas y mi- 
núsculas. 

La escritura del programa en Lenguaje 
Máquina la realizaremos en 6 pasos, en 
los que utilizaremos los siguientes man- 
datos del DEBUG: 


E (inicial de ENTER) para introducir da- 
tos en memoria. 


D (inicial de DISPLAY) para visualizar 
parte de la memoria. 


N (inicial de NAME) para definir el nom- 
bre de un fichero. 


R (Inicial de REGISTER) para visualizar y 
modificar el valor de los registros. 


(inicial de WRITE) para escribir un fl- 
chero en diskette, 

a (inicial de QUIT) para terminar la eje- 
cución y volver al DOS. 


Paso primero: escritura de 20 números 
hexadecimales (cada uno de los cuales 
ocupará un byte) a partir de la dirección 
100 (hexadecimal) de la memoria. Escrl- 
bimos “e 100”, a continuación los 20 nú- 
meros hexadecimales que constituyen 
nuestro programa y como siempre termi- 
namos pulsando la tecla Enter. 


Antes de hacerlo, tengamos en cuenta 
que el byte número 7 del programa está 
relacionado con el tipo de pantalla a 
usar. .Si se utiliza la pantalla monocroma, 
dicho byte debe ser «bO», y si se utiliza la 
de color debe ser «b8». 


- 100 le 31 cO0 50 b8 00 xx 8e cO0 31 ff 
b9 c0 03 b8 41 f1 f3 ab cb 


donde xx = b0 (pantalla monócroma) 
ba (pantalla de color) 


Paso segundo: comprobación de que 
»os datos definidos son exactamente los 
aue queríamos. Para ello usamos el man- 
gato “d 100 113” que quiere decir visua- 
“zar en la pantalla desde la dirección 
100 a la 113. Al hacer esto obtendremos 
=n pantalla lo siguiente: 


-9 100 113 

0C47:0100 E ide -20 31] 
FF B9 CO 03 B8 41. 1 P8.0. 1.984 

2C47:0110 F1 F3 AB CB ps 


La salida producida por este mandato 
está dividida en tres partes. A la izquier- 
da aparecen las direcciones de memo- 
ría que se están representando (el códi- 
go 0C47 que aparece a la izquierda, 
puede variar y no debe preocuparnos). En 
a! centro se representa el contenido de 
los bytes pedidos en notación hexadecl- 
mal y a la derecha la representación AS- 
Cil de los mismos bytes. 


Debemos comprobar que los números 
que aparecen en la parte central son 
byie por byte exactamente los que que- 
ramos. Si coinciden, podemos continuar 
con el tercer paso, pero si se encuentra 
algún error hay que volver a repetir el pri- 
mer paso, ya que la ejecución de pro- 
gramas en Lenguaje Máquina con erro- 
res obliga en la mayoría de los casos a 
nacer «PL» (arrancar de nuevo). 


Paso tercero: definición del nombre del 
programa. Para ello escribimos el man- 
dato «N», después un espacio y a contl- 
nuación el nombre elegido seguido de 
un punto y la palabra «COM». Si elegimos 
por ejemplo, el nombre «MAQUINA» escril- 
biremos “n maquina.com”, presionare- 
mos ENTER y en la pantalla deberá apare- 
cer: 


=Nh maquina.com 


Paso cuarto: definición de la longitud 
del programa que queremos guardar. El 
DEBUG necesita tenerla en el registro CX. 
Para definir un 20 (decimal) en ese regis- 
tro, tecleamos “r cx” seguido de Enter. El 
DEBUG responde con CX seguido del va- 
lor que en ese momento contiene el re- 
gistro y en la línea siguiente escribe dos 
puntos y espera que se especifique un 
nuevo valor para CX (en hexadecimal). 
Nosotros escribiremos «14» (puesto que 


14 hexadecimal es lo mismo que 20 de- 
clmal) y pulsaremos ENTER. 


1 CX 
CX 0000 
:]4 


Paso quinto: escritura del fichero en el 
diskette constituyendo un programa eje- 
cutable. Utilizamos el mandato W sin pa- 
rámetros. El DEBUG devolverá un mensaje 
que confirma el número de bytes escritos 
(en notación hexadecimal). 


-W 
Writing 0014 bytes 


Paso sexto: terminación del DEBUG y 
vuelta al DOS. Esto lo hacemos con el 
mandato Q sin parámetros. 


-q 
A> 


Si listamos ahora el directorio del dis- 
kette, podemos comprobar que tenemos 
un nuevo fichero de sólo 20 bytes de 
nombre MAQUINA.COM. Para ejecutarlo, 
escribimos su nombre (sin el punto ni la 
palabra COM) seguido de ENTER: 


A>MAQUINA 


El programa escribirá parpadeando so- 
bre la pantalla 960 veces el carácter «A», 
Como curiosidad podemos señalar que 
dicho carácter está definido en el byte 
número 16 del programa y el atributo en 
el byte siguiente. 

Este ejemplo nos ha servido para com- 
probar directamente lo árido que resulta 
el código máquina y para empezar a fa- 
miliarizarnos con el DEBUG. Ahora nos va 
a volver a servir para comprender el con- 
cepto del lenguaje simbólico. 


m Lenguaje Simbólico 


Volvemos a llamar de nuevo al DEBUG, 
esta vez usando como parámetro el nom- 
bre del programa que acabamos de 
crear. 


A>DEBUG MAQUINA.COM 


dl MAQUINA 8086 


Y ejecutamos un nuevo mandato, el 
mandato U. Esta letra es la inicial de la 
palabra inglesa «unassemble» que quie- 
re decir des-ensamblar y que nosotros 
podemos traducir por «deshacer la codi- 
ficación que hizo el ensamblador», ya 
que la forma normal de obtener el códi- 
go máquina es a través del programa en- 
samblador aunque nosotros lo hayamos 
escrito directamente en este caso. Escri- 
bimos “u 100 113", con lo cual pedimos al 
DEBUG que nos represente las Instruccio- 
nes del «lenguaje simbólico» que contle- 
nen las posiciones de memoria compren- 
didas entre las direcciones 100 y 113 
(hexadecimal). Al pulsar Enter obtendre- 
mos: 


-u 100 113 

0C47:6100  1E PUSH DS 

0C47:0101 31C0 XOR AX,AX 

0C47:0103 50 PUSH 

0C47:0104  B800B0 MOV AX,B000 

0C47:0107  8ECO MOV ES,AX 

0C47:0109  31FF XOR DI,DI 

0C47:010B  B9C003 MOV cx, 03C0 

0C47:010E  B841F1 MOV AX,F141 

0C47:0111  F3 REPZ 

0C47:0112 AB SsTOSW 

0C47:0113 CB RETF 

o a 
zona 1 zona 2 zona 3 


El resultado del mandato U está dividi- 
do en tres zonas. La zona de la Izquierda 
contiene direcciones de memoria, la 
zona central representa el contenido de 
esa memoria en notación hexadecimal 
(podemos reconocer en las distintas lí- 
neas la lista de códigos que anteriormen- 
te habíamos definido con el mandato E) 
y en la zona de la derecha se represen- 
ta el programa en «lenguaje simbólico» 
asociado a dichos códigos. 

Llegamos a la conclusión que ya ha- 
bíamos anticipado anteriormente. El có- 
digo simbólico y el código máquina son 
dos formas diferentes de representar lo 
mismo. El primero está adaptado al hom- 
bre y el segundo está adaptado a la má- 
quina, pero existe entre ambos una 
correspondencia y hay programas para 
realizar conversiones en los dos sentidos. 

En el listado del programa que nos ha 
proporcionado el DEBUG, observamos 
dos columnas. La columna de la Izquier- 
da contiene palabras como PUSH, XOR, 
MOV, etc., que son códigos nemotécnl- 
cos de instrucciones. Lo que aparece en 
la columna de la derecha son operandos 
de dichas instrucciones. Podemos ver 
operandos de dos tipos, números hexa- 
decimales como B000, 03C0 y FI41 y 
otras palabras: DS, AX, ES, DI y CX que son 
códigos nemotécnicos de registros y es 
de esto de lo que vamos a tratar en el 
tomo cuatro. 


N esta sección iremos 
viendo semana tras 
semana una serie de 
programas que, no 
sólo nos servirán para 
jugar, sino también 
para aprender mate- 
: máticas, física, quími- 
ca, para lavar nuestra propia contabili- 
dad casera, nuestro fichero de libros... 
También veremos programas de ayuda 
al programador y rutinas, en BASIC y en 


PRTERENBNTES 


PROGRAMAS 


PROGRAMAS EDUCATIVOS 
PROGRAMAS DE UTILIDAD 
PROGRAMAS DE GESTION 
PROGRAMAS DE JUEGOS 


CODIGO MAQUINA, con las que sacar 
más provecho a nuestro ordenador: 


Programa: Cálculo de 


determinantes 
El primer programa que vamos a ver sir- 
ve para resolver determinantes de cual- 
quier orden. La velocidad de este pro- 
grama es sorprendente aunque tenga 
que resolver determinantes de 20 x 20 (o 
de 40 x 40, que es lo máximo que acepta). 


; mM 
3 


INPUT 
FOR F= 
FOR 


NEX 
NEXT E 
LET E= 


IO OOOO OOOO OOOO ROI ROOIDIODSOIOROPIODIOOL 
IO CALCULO DE DETERMINANTES DE CUALQUIER ORDEN OOOO KK 
BOO OOOO Jolla lalalala lao JOOIOJOK 


BAIRRO IO OOOO OOOO Olla lOIDIOROJOK: 
IOOIIOIGOGIGIOODÓK: POR JUAN MANUEL GUTIERREZ LEITON AMOS lojolajojoK: 
aaa jojojo lalalala lalala lalola lalola lalalala lRlOOIÓk 


PODIDO OOOO ORIO OOOO OOOO PRO IO ROOIDIORORIOOIOIORDIOROIOOISIOIJOR 
AOOOIGIOGOIOIGIGIOO — (c) EDICIONES SIGLO CULTURAL, 1987 SOOAOOIOIOOIVIODON 
ARA DISORDER ROO RDRRORIDDIÓ: 


1600) ,D(1600) 


"dimension del determinante”;DI1 
1 TO DI 
C=i TO DI 
PRINT A A 
LET D=C-DI+FXD1 
INPUT M(D) 
E 


o 


3 LET F=0 


FOR 1= 
LET 
LET 


1 TO (DI-1)XDI-1 STEP DI+1 
E=E+1 
C=1 


á PROGRAMAS 


IF M(C)=0 THEN LET F=1:LET C=C+DI:G0TO 130 


IF F=1 THEN GOTO 132 
GOTO 136 
IF C<DI?2 THEN GOTO 127 


PRINT "determinante=0":G0TO 161 


FOR G=1 TO I+DI-E 
LET M(G)=M(G)+M(C) 
134 LET C=C+1 
135 NEXT G 
136 LET D(E)=MCT) 
137 FOR G=1 TO EXDI 
138 LET M(6)=M(G)/D(E) 
139 NEXT G 
140 LET H=E 
141 LET J=1+DI 
142 LET K=M(J) 
143 LET P=J 
144 FOR G=1 TO I+DI-E 
195 LET M(P)=M(P)-M(G)IXK 
146 LET P=P+1 
147 NEXT G 
148 LET J=J+D1 


149 1F H<3DI-1. THEN LET H=H+1:GOTO 142 


150 NEXT 1 

151 LET D(E+1)=M(DIXDI) 

152 LET RE=1 

153 FOR I=1 TO DI 

154 LET RE=REXD(1I) 

155 NEXT 1 

156 CLS 

157 PRINT "el determinante=";RE 
158 LOCATE 12,20 


159 PRINT "pulse una tecla para continuar” 


160 A$=INKEYS: IF A$="" 
161 CLS 
162 LOCATE 1,1 


THEN GOTO 160 


163 PRINT "CALCULAR OTRO DETERMINANTE (S/N)"; 
164 LOCATE 1,33: INPUT As 
165 1F A$="S" OR A$="s" THEN GOTO 113 
166 IF A$="N" OR A$="n" THEN END 

LOCATE 12,20:PRINT "caracter no valido":G0TO 162 


Este programa funciona perfectamente 
en el IBM PC y compatibles, así como en 
el AMSTRAD. Para que el programa pue- 
da funcionar en otros ordenadores, pro- 
ponemos las siguientes modificaciones: 


COMMODORE: 


113 PRINT CHR$(147) 

156 PRINT CHR$(147) 

158 POKE 214,12:POKE 211,1 
161 PRINT CHR$(147) 

162 POKE 214,1:POKE 211,1 
167 POKE 214,12:POKE 211,1 


MSX: 


158 LOCATE 1,12 
162 LOCATE 1,1 
1,1 


167 LOCATE 1,12 


SPECTRUM: 


119 INPUT M(D):PRINT M(D) 

158 PRINT AT 12,1; 

160 LET AS=INKEYS:IF A$="” THEN GOTO 
160 

164 INPUT “LO CALCULAMOS”;AS$ 

167 PRINT AT 12,1; “Caracter no vali- 
do”:GOTO 162 


Este programa es muy fácil de pasar a 
una calculadora programable debido a 
su pequeña longitud. Para ello te acon- 
sejo que leas el manual de tu calculado- 
ra aunque no creo que tengas que hacer 
muchos cambios. Sólo necesitarás anular 
todos las sentencias LOCATE del listado. 


46 
EN 


DETERMINANTE 1 


1740 3.0.0 2 
112 5 5 15 20 
7. 62513 10 
SERIAS 


DETERMINANTE 3 


A Resolver un determinante como el 3 a* 
A ' mano es una labor casi imposible. Con 
este programa verás como tu ordenador 
“0 resuelve en menos de 15 segundos. 


[um Notas sobre el programa 1 


Este programa está preparado para 
nacer determinantes de un máximo de 
40 x 40. Si quieres hacer determinantes 
más grandes tienes que cambiar el di- 


VOCABULARIO INGLES 


mensionado de los vectores de la línea 
112. Por ejemplo, si necesitas hacer un 
determinante de 48 x 48 la línea 112 nos 
quedaría: 


112 DIM M(2304):DIM D(2304)p 


El número 2304 nos resulta de multipli- 
car 48 x 48. 


Si plensas unir este programa con al- 
gún otro que tú tengas, y quieres ahorrar 
memoria, porque no necesitas realizar 
determinantes de 40 x 40, te aconsejo 
que varíes la línea 112 y ajustes la dimen- 
sión de los vectores a lo que necesites. 


Programa: Vocabulario inglés 


Este programa nos va a permitir apren- 
der algo más de inglés del que ya sabe- 
mos. Está pensado para que una perso- 
na que tenga pocos conocimientos de 
dicho idioma pueda aprender poco a 
poco con él. Pero también sirve para 
aquéllos que quieran recordar todo lo 
que aprendieron hace tiempo y que casi 
han olvidado. 


100 REM 6 ade 36 6 EM HE MI II MM MI MIA E 


101 REM * * 
102 REM x* ENGLISH VOCABULARY * 
103 REM * * 
104 REM * Por PETER BERGMANN * 


LOG REM e MM MIMI IMM IRM RM 


107 REMAIN MEME HE IR 


* 
* 
* 
* 
* 
* 
* 
* 
NUMERO DE MIVEL * 
* 
* 
- 
* 
* 
* 
* 
* 
* 


VARIABLES USADAS 


PALABRA ESPAZOL 

PALABRA INGLES 
RESPUESTAS (CORR. O FAL) 
PALABRA USADA FLAG 


NUMERO DE RESP. CORRECTO 
NUMERO DE RESP. FALSO 


NUMERO ALEATORIO 

NUMERO DE LETRAS 

RESPUESTAS (5/N) 

= CONTADORES 

PREM MM RMN MR III 


108 REM * 

109 REM * 

110 REM o 
111 REM *x 

112 REM * S$ = 

113 REM +* 1% = 

114 REMx*C = 

115 REM * UY = 

116 REM * NN = 

117 REM * NC = 

118 REM * NF = 

119 REM x* PC = % CORRECTO 
120 REM * PF = Z/ FALSO 
121 REM * RN = 

122 REM * NL = 

123 REM x R$ = 

124 REM * Ni, N2, 1 
125 REM + 

126 REM 


127 DIM S$(50),1+(50) 


128 DIM C(50) ,U(50) 


130 REM x*x PANTALLA DE PRESENTACION xxx 


O 
FOR 1I=2 TO 19 
PRINT "*x"3TAB(40)7"x" 
NEXT I 
A 
LOCATE 8,13: PRINT "ENGLISH VOCABULARY" 
LOCATE-9, 129 PRINTS mama ren vi ene e ye 
LOCATE 12,7:PRINT "(c) Ed. Siglo Cultural, 1987" 
FOR 1 = 1 TO 1000 
NEXT 1 
REM 
REM *** ENTRADA DE NIVEL xk 
REM 
LET NP=0 
LOCATE 17,3 
INPUT “(QUE NIVEL QUIERES (1-4) "¿NN 
IF NN<1 OR NN>4 THEN GOTO 148 
RANDOMIZE TIMER 
LET NP=0:LET NC=0:LET NF=0 
FOR I=i TO 50 
LET C(1)=0 
LET U(I)>= O 
NÉXT 1 
REM 
Pa *** LECTURA DE LA DATA REQUERIDA *x*x 
LET NP=NP+1 
IF NP=Si THEN GOTO 304 
IF NN=1 THEN RESTORE 323 
IF NN=2 THEN RESTORE 344 
IF NN=3 THEN RESTORE 399 
IF NN=4 THEN RESTORE 454 
REM 
ES **x LECTURA DE LAS PALABRAS x**x* 
RE 
LET RN=INT (RND*SO+1) 
FOR I=1 TO RN 
READ S$ (NP), I+ (NP) 
NEXT I 
IF U(RN)<>0 THEN GOTO 161 
LET U(RN)=1 
CLS:PRINT:*PRINT 
PRINT “La palabra mumero "3NP3" es ; "¿S$(NP) 
PRINT 
PRINT 
PRINT "ESCRIBE ESTA PALABRA EN INGLES" 
PRINT 


LET NL=LEN (18 (NP) ) 
LOCATE 11,INT((40-NL)/2) 
FOR I=1 TO NL 

PRINT "="; 
NEXT 1 
LOCATE 10, 1NT ((40-NL)/2)-2 
INPUT Es 
CL8 E 
PRINT "MI PREGUNTA FUE "5% (NP) 
FRINT 
PRINT 
PRINT "TU RESPUESTA ES "3E+ 
PRINT 
PRINT 
JF Es=I$(NP) THEN GOTO 197 
BOTO 219 
REM 
REM xxx RESPUESTA CORRECTA **x 
REM 
IF C(NP)<>0 THEN GOTO 201 
LET C(NP)=1 
PRINT 


FOR I=1 TO 10 
LOCATE 12,15 
PRINT "HAS ACERTADO" 
FOR J=1 TO 100-3x1 
NEXT J 
LOCATE 12,15 
PRINT " ho 
FOR J=1 TO 100-3*1 
NEXT J 
NEXT 1 
LOCATE 15,1 
PRINT "(QUIERES OTRA PALABRA? (S/N) " 
INPUT R$ 


IF R$ = "S" THEN GOTO 157 
IF R$ = "N" THEN GOTO 242 
GOTO 212 
REM 
REM ** RESPUESTA ERRONEA **x 
REM 
IF C(NP)<>0 THEN GOTO 223 
LET C(NP)=2 
FOR I=1 TO 7 
LOCATE 12,8 
PRINT "LO SIENTO. NO HAS ACERTADO" 
FOR J=1 TO 40+3*1 
NEXT J 
LOCATE 12,8 
PRINT " " 
FOR J=1 TO 40+3x*1 
NEXT J 
NEXT 1 
LOCATE 13,1 


INPUT "(QUIERES INTENTARLO OTRA VEZ (S/N) "¿Ré 
IF R$="S" THEN GOTU 174 

IF Ré<>"N" THEN GOTO 233 

LOCATE 15,1 

PRINT "LA RESPUESTA ERA: "3 1$ (NP) 


FOR I=1 TO 2000 

NEXT 1 

GOTO 159 

REM 

REM *** CALCULO DE % DE ACIERTOS **x* 
REM 

FOR I=1 TO NP 


IF C(1)=1 THEN NC=NC+i 
IF C(1)=2 THEN NF=NF+1 
NEXT 1 


LET PC=(NC/NP)x*100 

LET PF=(NF/NP)*100 

REM 

REM xxx IMPRESION DE RESULTADOS *x** 
REM 

CcLs 

PRINT TARE(12)5 "RESULTADOS FINALES" 
PRINT TAB(11),"= 


PRINT 

PRINT "NUMERO DE PREGUNTAS = "¿NP 

PRINT "NUMERO DE ACIERTOS = "¿NC 

PRINT "NUMERO DE ERRORES = "¿NF 

PRINT "PORCENTAJE ACIERTOS = "3PC3"%" 

PRINT "PORCENTAJE FALLOS == "MpPEI"A" 

PRINT 

FRINT 

PRINT 

1F PC<40 THEN PRINT "TE QUEDA MUCHO POR APRENDER" 


1F PC>40 AND FC<70 THEN PRINT "TIENES QUE ESTUDIAR MAS" 
IF PC>70 AND PC<90 THEN PRINT "NO ESTA MAL: PERO ...” 


1F PC>=90 THEN PRINT "SE VE QUE ERES UN EXPERTO!" 
PRINT 

PRINT 

INPUT "(QUIERES LA LISTA DE LAS PALBRAS? (S/N)"¿R* 
1F R$="N" GOTO 297 

IF R$<>"S" GOTO 272 

REM 

REM xx%* IMPRESION DE LAS PALABRAS USADAS **x* 

REM 

LET Ni=1 

LET N2=15 

CLs 

PRINT "PALABRAS" 

PRINT 

PRINT "EN ESPAZOL”,"EN INGLES";" CORRECTO 


FOR I=N1 TO N2 
PRINT S+(1),1$(1) 
LOCATE 1+4,30 
IF C(I)=1 THEN PRINT "SI":*GOTO 291 
PRINT "NO" 
NEXT 1 
IF NP<>N2 THEN N2=N2+15 
LET Ni=N1+15 
PRINT 
INPUT "(CONTINUAMOS? (ENTER) "As 
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296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 


IF NP<>N2 GOTO 230 

PRINT 

PRINT 

INPUT "(QUIERES CONTINUAR CON OTRO NIVEL? (S/N)"3R+$ 
IF R$="S" THEN GOTO 144 

IF Re="N" THEN END 

GOTO 299 

REM 

REM 

REM *** SIN PALABRAS **x 

REM 

CLS 

PRINT 

PRINT 

PRINT 

FRINT 

PRINT "NO HAY MAS PALABRAS DEL NIVEL "3NN3".” 
FOR 1 = 1 TO 5000 


NEXT 1 

GOTO 242 

REM 

REM Rm dd 16 DE MM ME IE IE DEM HE HEN EM RE 
REM * DATA * 
REI AM MI ME MEME MEM ARANA 
REM 

REM xx** NIVEL 1 X*x* 

REM 


DATA "LLUVIA", "RAIN", "GATO" ,"CAT", "HOMBRE", "MAN", "HORA", "HOUR", "SOL", "SUN", 


HERMANO", "BROTHER", "MADRE", "MOTHER", "PERRO", "DOG", "MESA", "TABLE", "MINUTO", "MINUT 
E", "PADRE", "FATHER" 

324 DATA "MUJER", "WOMAN", "HERMANA", "SISTER", "NIEVE", "SNOW", "TIO", "UNCLE", "TIA", " 
AUNT", "AMIGO", "FRIEND", "SILLA", "CHAIR" 

325 DATA "POLLO", "CHICKEN", "COMIDA", "FOOD", "COCHE", "CAR", "NIZO", "CHILD”, "PRIMO", 
"COUISIN", "CASA", "HOME" 

326 DATA “PUERTA","DOOR","VENTANA", "WINDOW", "TU”,"YDU", "UNO", "ONE", "DOS", "TWO", " 
TRES", "THREE", "CUATRO", "FOUR", "CINCO", "FIVE","SEIS", "SIX", "SIETE", "SEVEN", "OCHO" 
, "EIGHT", "NUEVE", "NINE", "DIEZ", "TEN" 


327 
328 
329 
330 
331 

332 
333 
334 
3359 
336 
337 
338 
339 
340 
341 
342 
343 


DATA "LUNES","MONDAY" 
DATA "MARTES", "TUESDAY" 
DATA "MIERCOLES", "WEDNESDAY" 
DATA "JUEVES" ," THURSDAY" 
DATA "VIERNES", "FRIDAY" 
DATA "SABADO", "SATURDAY" 
DATA "DOMINGO", "SUNDAY" 
DATA "POBRE" ,"PODR" 

DATA "RICO","RICH" 

DATA "DINERO", "MONEY" 
DATA "CARTA", "LETTER" 
DATA "PALABRA", "WORD" 
DATA "NOCHE", "NIGHT" 
DATA "LUNA", "MOON" 


REM 

REM *x** NIVEL 2 *x% 
REM 

DATA "RATON", "MOUSE" 


DATA "MONO”, "MONKEY" 

DATA "MES" ,"MONTH" 

DATA "AZ0","YEAR" 

DATA "BOCA", "MOUTH" 

DATA "MOMENTO", "MOMENT" 
DATA "MEDIANOCHE", "MIDNIGHT" 
DATA "CARNE","MEAT" 

DATA "LECHE". "MILK" 

DATA "HUEVOS", "EGGS" 

DATA "AGUA", "WATER" 

DATA "HIELO"," ICE" 

DATA "LIBRE", "FREE” 

DATA "LECHUGA", "LETTUCE" 
DATA "TOMATE", ”"TOMATO" 
DATA "CERDLLA","ONION" 
DATA "ENERO", "JANUARY" 
DATA "FEBRERO", "FEBRUARY" 


2 DATA "MARZO", "MARCH" 


DATA "ABRIL","APRIL" 

DATA "MAYO", "MAY" 

DATA "JUNTO", "JUNE" 

DATA "JULIO", "JULY" 

DATA "AGOSTO", "AUGUST" 

DATA "SEPTIEMBRE", "SEPTEMBER" 
DATA "OCTUBRE", "OCTOBER" 
DATA "NOVIEMBRE", "NOVEMBER" 
DATA “DICIEMBRE”, "DECEMBER" 
DATA "FECHA",'"DATE" 

DATA "TIEMPO", "WEATHER" 
DATA "0TOZO"., "AUTUMN" 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 
REM 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
REM 

REM 

REM 

DATA 
DATA 
DATA 
DATA 


"VERANO", "SUMMER" 
"INVIERNO", "WINTER" 
"PRIMAVERA", "SPRING" 
"ESTRELLA", "STAR" 
"DERECHO", "RIGHT" 
"IZQUIERDO", "LEFT" 
"CAMINO", "ROAD" 
"CALLE", "STREET" 
"AZUL", "BLUE" 
"ROJO", "RED" 
"VERDE", "GREEN" 
"NARANJA", "ORANGE" 
"AMARILLO", "YELLOW" 
"BLANCO", "WHITE" 
"NEGRO", "BLACK" 
"PLATANO", "BANANA" 
"ACEITUNA", "OLIVE" 
"AHORA", "NOW" 
"DONDE", "WHERE" 
"NOMBRE" , NAME" 
"LAGO", "LAKE" 


RE NIVEL 3 XxX% 


"TINTA", "INK" 
"AQUI", "HERE" 
"FRIO", "COLD" 
"CALOR", "WARM" 
"CALIENTE", "HOT" 
"SUELO", "FLOOR" 
"NTIEELA","FOG" 
"TENEDOR", "FORK" 
"CUCHILLO", "KNIFE" 
"CUCHARA", "SPOON" 
"DEPORTE", "SPORT" 
"SUR", "SOUTH" 
"NORTE", "NORTH" 
"DESTE", "WEST" 
"ESTE", "EAST" 
"FACIL", "EASY" 
"OREJA", "EAR" 
"CODO", "ELBOW" 
"EMPLEADO", "EMPLOYEE" 
"TRABAJO", "JOR" 


"OFICINA". "OFFICE" 
"EDIFICIO", "BUILDING" 


"MUSICA", "MUSIC" 
"DESAYUNO", "BREAKFAST" 
"DICCIONARIO", "DICTIONARY" 
"DIENTE", *TOOTH" 
"DIOS", "GOD" 
"ENSALADA", "SALAD" 
"ESCLAVO", "SLAVE" 
"FISICA", "PHYSICS" 
"FRASE", "SENTENCE" 
"MEDICINA", "MEDICINE" 
"MIEDO", "FEAR" 
"CANSADO", "TIRED" 
"ENFERMO", "SICK" 

REO DES" 

"SUCIO", "DIRTY" 
"LIMPIO", "CLEAN" 
"VERBO", "VERB" 

"YDZ", "VOICE" 
"VOCAL." , "VOWEL" 
"PATATA", "POTATO" 
"CAMA", "BED" 
"FARMACIA", "PHARMACY" 
"PLATO", "PLATE" 
"BOLSA", "PURSE" 
"BOLSILLO", "POCKET" 
"MILITAR", "MILITARY" 
"PRESIDENTE", "PRESIDENT" 
"PAIS", "COUNTRY" 
"VACA", COv" 

"COCINA", "KITCHEN" 


AMR NIVEL 5 X*%% 


"ABOGADO", "ATTORNEY" 
"BIBLIOTECA", "LIBRARY" 
"ESCUELA", "SCHOOL" 
"VIDA", "LIFE" 


á PROGRAMAS 


La palabra  ntumar o 1 ma 


ESCRIBE ESTA PALABRA En 


2 FACIL 


IMGLES 


"ESPEJO", "MIRROR" 
"MILAGRO", MIRACLE" 
"CARTERO", "POSTMAN" 
"POBLACION", "POPULATION" 
"ARROZ", "RICE" 

"GOMA", "RUBBER" 
"RIESGO", "RISK" 
"ESTILO", "STYLE" 
"FUERZA", "STRENGTH" 
"CORRIENTE", "STREAM" 
"VELOCIDAD", "SPEED" 
"RUTINA", "ROUTINE" 
"POSDATA", "POSTSCRIPT" 
"HUELLA", "NECK" 
"TIERRA", "LAND" 
"RANA", "FROG" 
"EMPERADOR", "EMPEROR" 
"COCINERO", "COOK" 
"PELICULA", "MOVIE" 
"OPORTUNIDAD", "CHANCE" 
"MEJILLA", "CHEEK" 
"CABALLERO", "GENTLEMAN" 
"CUERNO", "HORN" 
"MENTIROSO", "LIAR" 
"LUZ", "LIGHT" 

"HORNO", "OVEN" 
"EREMIO", "PRIZE" 
"ESPACIO", "SPACE" 
"ESTADO", "STATE" 
"CUADRO", “SQUARE " 
"EQUIPO", "TEAM" 
"IMPUESTO", "TAX" 
"CINTA", "TAPE” 
"GARGANTA", "THROAT" 
"JUGUETE", "TOY" 
"LENGUA", "TONGUE" 
"BARCA", “BDAT" 
"BARRIO", "NEIGHBORHOOD" 
"CAMISA", "SHIRT" 
"CARTEL", "POSTER" 
"CLIMA", "CLIMATE" 
"FUEGO", "FIRE" 
"HAMBRE", "HUNGER" 
"ISLA", "ISLAND" 
"JEFE", "CHIEF" 
"LAGRIMA", "TEAR" 
"LLAVE", "KEY" 

"OLOR", "SMELL" 


Aunque es un programa muy largo, me- 
rece la pena intentar introducirlo, ya que 
los resultados son mejores de lo que uno 
espera. 

El programa puede funcionar perfecta- 
mente, y sin problemas, en cualquier tipo 
de IBM o compatible así como en el AMS- 
TRAD. Para el resto de los ordenadores las 
modificaciones son las siguientes: 


COMMODORE: 


132 PRINT CHR$(147) 
138 POKE 214,8:POKE 211,12:PRINT “EN- 


> Ejemplo de ejecución del programa 
«Vocabulario inglés». 


'SUSH VOCABULARY” 

139 POKE 214,9:POKE 211,11:PRINT 
140 POKE 214,12:POKE 211,6:PRINT “(c) Ed. 
Siglo Cultural, 1987” 

147 POKE 214,17:POKE 211,2 

150 A=RND(TD) 

168 LET RN=INT(RND(1)'50+1) 

174 PRINT CHR$(147):PRINT:PRINT 

181 POKE 214,11:POKE 211,INT((40- 
Mt)/2)-1 

185 POKE 214,10:POKE 
211,INT((40/NL)/2)-3 
187 PRINT CHR$(147) 
203 POKE 214,12:POKE 2 
207 POKE 214,12:POKE 2 
212 POKE 214,15:POKE 2 
224 POKE 214,12:POKE 2 
228 POKE 214,12:POKE 2 
233 POKE 214,13:POKE 2 
237 POKE 214,15:POKE 2 
254 PRINT CHR$(147) 
280 PRINT CHR$(147) 
288 POKE 214,1+4:POKE 211,29 
307 PRINT CHR$(147) 


A 


MSX: 


138 LOCATE 13,8:PRINT “ENGLISH VOCABU- 
LARY" 

139 LOCATE 12,9:PRINT “omenennmamamamamamma y 
140 LOCATE 7,12:PRINT “(c) Ed. Siglo Cul- 
tural, 1987” 

147 LOCATE 3,17 

150 RANDOMIZE TIME 

168 LET RN=INT(RND(1)'50+1) 

181 LOCATE INT((40-NL)/2),11 

185 LOCATE INT((40-NL)/2)-2,10 

203 LOCATE 15,12 

207 LOCATE 15,12 

212 LOCATE 1,15 

224 LOCATE 8,12 

228 LOCATE 8,12 

233 LOCATE 1,13 

237 LOCATE 1,15 

288 LOCATE 30,1+4 


SPECTRUM: 

133 PRINT nen pondono bennnervanorcdr nc .mmo y” 
135 PRINT “"":TAB(31);""" 

137 PRINT * HINACLIEATILAAAAR AAA HARUNFRRAR NL “bs 


138 PRINT AT 8,9:"ENGLISH vOoC ABULARY" 
139 PRINT AT 9,8; “onmmncccnnamamaano=e 

120 PRINT AT 12,3;"(c) Ed. Siglo Cultural, 
1987" 


== 


147 REM 

150 RANDOMIZE O 

181 PRINT AT 11,INT(32-NL)/2); 
185 PRINT AT 10,INT(32-NL)/2)-2; 
186 INPUT ES:PRINT ES 

203 PRINT AT 12,11; 

207 PRINT AT 12,11; 

212 PRINT AT 15,1; 

224 PRINT AT 12,4; 

228 PRINT AT 12,4 
233 PRINT AT 13,1; 
237 PRINT AT 15,1; 
288 PRINT AT 1+4,26; 


2 
71.42059 X 


|. PORCENTAJE FALLOS 28.-37143% % 


MO ESTA MAL PERO -=-- 


CQUIERES LA LISTA DEC OLAS FALBRADT (S/N 


El programa da el tanto por ciento de 
aciertos y de errores. 


PALABRAS 
EN ESPAZOL EN INGLES CORRECTO E 


CENTERS 


lA, Listas de las palabras que se le 


preguntaron al usuario. 
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O Notas sobre el programa 2 


Este programa está especialmente di- 
señado con una idea de crecimiento 
continuo. Esto significa que está pensado 
para que el usuario en cualquier momen- 
to pueda variar el número de palabras 
por nivel e incluso de niveles. Veamos 
cómo hacerlo. 


Si queremos tener 100 palabras por ni- 
vel, en vez de las 50 que hay actualmen- 
te, solo tendremos que cambiar las si- 
guientes líneas: 

127 DIM S$(100):DIM 1$(100) 
128 DIM C(100):DIM U(100) 
152 FOR I=1 TO 100 

160 IF NP=101 THEN GOTO 304 


168 LET RN=INT(RND”100+1) 


introduciendo, lógicamente, 50 palabras 
para cada nivel, en las líneas DATA. 


O Programa: Calendarios 


Este programa nos permitirá imprimir 
calendarios por la impresora. Para ello es 
necesario que el usuario tenga una im- 
presora de 80 columnas como mínimo. 
Por ello, este programa no funciona en el 
SPECTRUM, aunque en tomos sucesivos 
aparecerá la versión para SPECTRUM. 


tel Ed, Sigla Cultural. 


MIUSTA EL PAPEL DE LA IMPRESORA. 
ENCIENDE LA IMPRESORA. 
PULSA UNA TECLA CUANDO ESTES LISTO 


[A Pantalla de presentación del programa 
«Calendario», 


EE dl MI DM JE DE DE MD MIE IE MEM MIE MRE DM IEEE MIE MI IAH MI 


REM* 

REM*  CCCC ARAA L 
REM+* E 
REM* $ 
REM* ¡E 
REM* L 
REM* cA L 
REM*  CCEC A AL 
REM* 


l=, 
ELLLL EEEEEE N 


ABAA  RRRR— 11111 000 


000o0Do 


e E] 5 
R 11111 000 55s 


* 
* 
* 
* 
* 
* 
+ 
* 
* 


AAA 
REM 
REM MNR RM MEM MM IMD MR MR MD AH MM DEM E 
REM MN MM MM MMMM MI ME MR MIE MIE AM IE MI MR IM MI MM ER A 
REM AAA O PROGRAMADO POR FRANCISCO MORALES reos 0 0 06H HE 
REM KAR MM ME MA MEM AM IE IM ME JE MIRNA 
REM 
REM MMMM HI MIE MIME DE MD DIR RR 
REM MHNUC RN III A 
REM MM dl lO A A A A (ac) Ed. Siglo Cultural, 1987 HN II A 
REM RMN MEN DM MM RN MR A II 
REM 

100 CLS 


101 PRINT " 
RAMA 

102 PRINT " 
7 

103 PRINT ” 
HIA 

104 PRINT * 
$ Hor" 

105 PRINT ” 
$ e" 

106 PRINT ” 
E 

107 PRINT " 
Ho" 

108 PRINT " 
4 Hor" 

109 PRINT " 
A 

110 PRINT * 
Ln 

111 PRINT ” 
PAR 
112 PRINT 
113 PRINT 

114 PRINT * 


116 NEXT 1 


HIM MED MIE HE DMI E 1 ME PIE MD DE IE EIN MR MIR IIA E 


* 


* 


* 


e 


* 


* 


dididi 
+ +4 
$* * 
+ * 
$ * 
+ "$ 
HORROR 


HHHH 


+ 


FO 3 + 


+ 


HARRH A 


* + 


++ 


HHRRRA A 


$ H ARCA 


+ +4 + 
bididid $ 
. + $ 
+ +4 


$ ORHRHABRR HRHRRR A 


wo 


$$“ 


HABRA RRE 


H HRRA 
+ 4 
$HAAR + 4 
$$ +4 hd 
.HxQu+4 "4 
+. + ++ 
$ HNRH Y 


$ $44 
$. + 


$4 


+ 


+ 


$ HRRRA ARA 


$4 


$4 


$ 


HARO RR RR AA 


XX + YE >= 


MI MM E DP MI MM MI MI DM MD IE MMM MEM IRA 


tc) Ed. Siglo Cultural." 
115 FOR I=1 TO 1000 


117 PRINT:PRINT 
AJUSTA EL PAPEL DE LA IMPRESORA. * 


118 PRINT " 
119 PRINT 
120 FRINT * 
121 PRINT 
122 PRINT * 


1235 DIM M(12) 
126 LET D=-3 
127 LET S=0 


ENCIENDE LA IMPRESORA." 


PULSA UNA TECLA CUANDO ESTES LISTO" 
123 LET AS=INKEY$: 1F As="" THEN GOTO 123 
124 LET M$="1987" 


128 FOR N=0 TO 12 
129 READ MIN) 


130 NEXT N 
131 LPRINT " 


132 LPRINT "=== ====-=-- 


CALENDARIO DE "¿M+$ 


133 LPRINT:LPRINT 
134 FOR N=1 TO 12 


135 CELS 

136 PRINT "IMPRIMIENDO EL CALENDARIO DEL AZO "¿M3 
137 PRINT:FRINT 

138 PRINT "ESTOY IMPRIMIENDO EL MES nO. “¿N 

139 PRINT:PRINT:PRINT 

140 LPRINT:LPRINT:LPRINT:LPRINT+¿LPRINT:LPRINT 

141 LET S5=S+M(N-1) 


142 PRINT "x*xx*"35; TAB(D) 3 
14 "35; TAB(8); 
144 FOR I=1 TO 17 


143 LPRINT 


148 ON N GOTO 149,150,151,152,153,154,155,156,157,158,159,160 


145 PRINT "x*"j 
146 LPRINT "*"3 
147 NEXT 1 

149 PRINT " ENERO 
150 PRINT " FEBRERO 
151 PRINT " MARZO 
152 PRINT "ABRIL 
153 PRINT " MAYO 

154 PRINT " JUNIO 
155 PRINT " JULIO, 
156 PRINT " AGOSTO 
157 PRINT "SEPTIEMBRE 
158 PRINT " OCTUBRE 
159 PRINT "NOVIEMBRE 
160 PRINT "DICIEMBRE 
161 FOR I=1 TO 18 

152 PRINT "x*"z 

163 LPRINT "*"g 


1654 NEXT 1 


165 PRINT 3659-93 "exe" 
1656 LPRINT 365-853 "e" 
167 PRINT:PRINT *" 

168 LPRINT:LPRINT " 


169. PRINT 
170 >) LPRINT 


171 ( FOR I=1 TO 59 
172 PRINT "*"; 


"s:LPRINT 
"¡oLPRINT 
"+ LPRINT 
"ÍLPRINT 
"y LPRINT 
"LPRINT 
"s¿LPRINT 
“¿:LPRINT 
"+ LPRINT 
“oLPRINT 
"po LPRINT 
"s LPRINT 


"ENERO 

" FEBRERO 
" MARZO 
"ABRIL 
MAYO 
"JUNIO 
“JULIO 
"AGOSTO 
"SEPTIEMBRE 
" OCTUBRE 
"NOVIEMBRE 
"DICIEMBRE 


"s:G0OTO 
"5:G0TO 
"s5:GOTO 
"3:GOTO 
"+3G60T0 
"3:GOTO 
"3 :G0TO 
"5 :GOTO 
"3 :G0OTO 
"3 :G0TO 
"3:GOTO 
“, 


161 
161 
161 
161 
161 
161 
161 
161 
161 
161 
161 


3 PROGRAMAS 


173 LPRINT eg 
174 NEXT 1 
175 FOR W=1 TO é 


197 FOR 1=1 TO 6 
198 FRINT 
199 NEXT 1 


El programa puede funcionar sin cam- 
bios en el IBM, MSX y en el AMSTRAD. Para 
el COMMODORE los cambios que hay 
que hacer son: 


COMMODORE: 


100 PRINT CHR$(147) 

131 PRINT “CALENDARIO DE 1987” 

132 PRINT Pe=nrimosreo=r==e> 

133 PRINT:PRINT 

135 REM 

136 REM 

137 REM 

138 REM 

138 REM 

140 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 


También hay que quitar todos los LPRINT 
del listado y poner en la línea 133 
PRINT:PRINT:OPEN 1,4:CMD. 


a Notas sobre el programa 3 


El programa está preparado para sa- 
carnos el calendario de 1987. Si quere- 


176 PRINT 

177 LPRINT 

178 PRINT TAB(4); 

179 LERINT TAB(4) y 

180 FOR G=1 TO 7 

181 LET D=D+1 

182 LET D2=D-S 

183 IF D2>M(N) THEN 190 
184 IF D2>0 THEN PRINT D23:LPRINT D2; 
185 PRINT TAB(44+8x*G); 
186 LPRINT TAB (4+8X6) 3 

187 NEXT 6 

138 IF D2=M(N) THEN 196 
189 NEXT W 

190 LET D=D-6 

191 LPRINT:LPRINT 

192 FOR I=1 TO 59 

193 PRINT "e"; 

194 LPRINT "*"3 

195 NEXT 1 

196 NEXT N 


200 DATA -0,31,28,31,30,31,30,31,31,30,31,30,31 


mos que nos saque otro año tenemos 
que hacer lo siguiente. 


1. Poner el año en la línea 124 tal y 
como aparece en el listado original. 

2. Asignarle a la variable numérica D, 
que se encuentra en la línea 126, un nú- 
mero que depende del día de la sema- 
na con que empiece el año. Si el año em- 
pieza en lunes pondremos un 0. Si empie- 
za en martes un -1 y así sucesivamente. 


LUNES = 0 
MARTES = -1 
MIERCOLES = -2 
JUEVES = -3 
VIERNES = -4 
SABADO = -5 
DOMINGO = -6 


3. Si el año resulta ser bisiesto enton- 
ces hay que cambiar las lineas siguien- 
tes: 


165 PRINT 366-S 

166 LPRINT 366-S 

200 DATA 0,31,29,31,30,31,30,31,31,30, 
31,30,31 


[m Programa: Cuatro en raya 


Este programa sólo funciona en el orde- 


que tengáis otro ordenador no os preo- 
cupéis, este mismo programa aparecerá 
en tomos sucesivos. El programa es el nú- 
mero 2. 


mador IBM PC, XT, AT y compatibles. Los 


CUATRO EN 


RAYA 


iodo 


REMO OROIO RO O O OROOOOOROIOSIO OO OIOPOIORO PIOJO JOPIOIOPIBIOIOPROIORBIOIOJOR 


REM * 
REM O» 
REM xk 
REM o* 
REM 
REM O* 
REN A 
REM * 
REM xk 
REM * 
REM Ox 
REM OA 
REN xk 
REM ox 
REM *X 
REM X* 
REM xk 
REM 


344 
4944 
44 44 


44 44 EEEEE N RERR ARA Y 


444444444 R 
44 RRERR 
44 z ROR 

4444 EEEEE N N R 


MORO ORO OOOO OOO OOOO ROOIOIOIOIOIOOIOIOROOIOROIOIOROOIOIOIORGOROIOIORROK 


PROGRAMA REALIZADO POR Carlos Coral y Fao. 


tc) EDICIONES SIGLO CULTURAL, 1987 


MOJO OOOO OOOO IO RIOR OOO ROROIOIOIOJOIOIOROIOIOIOIOJOJIOIOIOIGIGRORGIGIÓN: 


DIM 5%(2) 
LET S$6(1)="x*"” 
LET 5$1(2)="8" 
SCREEN 0 


CLS 

FPRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FRINT 
FRINT 
FRINMT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FPRINT 
PRINT 


" 
" 

" El juego consiste en conseguir que" 

"cuatro de nuestras fichas se encuentren" 


"en linea. Esta linea puede ser vertical," 
"horizontal y diagonal." 


"Cuando el .ordenador pregunte cual es” 
"ta movimiento tienes que darle la fila y” 
"la columma en la que te quieres colocar." 
"Un ejemplo. Si te vas a mover a la colum" 
"na H de la fila 4, tendras que escribir” 
"Hg," 


El jugador No. 1 tiene la ficha XX." 
» El jugador No. 2 tiene la ficha +." 


"PULSA UNA TECLA Y ...” 
",..« «BUENA SUERTE !!!” 


IF INKEYS$="" THEN GOTO 126 


CLS 


LOCATE 1,3 


PRINT 


VEAIS A Fit -12* 


LET R=65 

FOR F=3 TO 17 STEP 
LOCATE F,1 
FPRINT CHR$(R) 
LET R=R+1 


NEXT F 


FOR F=3 TO 17 STEP 
LOCATE F,3 
PRINT "+. . 

NEXT F 

LOCATE 20,1 


PRINT 


"PULSA UNA TECLA” 


IF INKEYS$="" THEN GOTO 140 
LOCATE 20,1 


PRINT 


mM 


LOCATE 20,1 


INFUT 


"NOMBRE DE JUGADOR 1= 


LOCATE 20,1 


PRINT 


LOCATE 20,1 


INPUT 


LOCATE 20,1 


PRINT 


“NOMBRE DE JUGADOR 2= 


Morales. 


*k 
* 
k 
k 
k 
A 
k 
% 
k 
Xx 
* 
k 
k 
A 
k 
A 
* 
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LOCATE 20,1 
INPUT "¿ QUIEN VA A EMPEZAR (1,2) "¿TR 
IF TR<1 OR TR>2 THEN GOTO 153 
DIM A(135) 
1F TR=1 THEN LET C$=A$:G60T0 159 
LET C$=B% 
LOCATE 20,1 
PRINT " 
"” 
LOCATE 20,1 
PRINT "TURNO DEL JUGADOR"¿TR¿" ("¿S$(TR)3")" 
INPUT "¿DONDE VAS A MOVER? (COL.FILA) "¿R$ 
IF R$="" OR LEN(R$)>3 THEN GOTO 159 
LET J$=MIDS(R$, 1,1): 1F J$<"A” OR J$>"H" THEN GOTO 159 
LET FI=ASC(I$)-64 
LET US=MID$(R$,2,3): 1F VAL(J$6)<1 OR VAL(1I$)>12 THEN GOTO 159 
LET CO=VAL (3%) 
LET SI=((FI-1)X12)+C0 . 
IF A(SI)<>0.THEN GOSUB 207:G60TO0 159 
GOSUR 201 
IF ER=1 THEN 159 
FOR d=3 TO 1+FIX2 STEP 2 
LOCATE J,3+((C0-1)X3) 
PRINT S$(TR) 
FOR K=1 TO 100 
NEXT K 
LOCATE 3,3+((C0-1)X3) 
PRINT ",” 
NEXT J 
LOCATE 1+FIK2,3+((C0-1)%3) 
PRINT S$(TR) 
LET A(SI)=TR 
LOCATE 20,1 
PRINT ” 
, 
GOSUB 189 
1F TR=1 THEN LET TR=2:60TO 158 
LET TR=1:G0TO 157 
LET E=1 
LET A=12 
FOR F=E TO A 
IF A(F)=TR AND A(F+1)=TR AND A(F+2)=TR AND A(F+3)=TR THEN GOTO 214 
IF A(F)=TR AND A(F+13)=TR AND A(F+26)=TR AND A(F+39)=TR THEN GOTO 214 
IF A(F)=TR AND A(F+11)=TR AND A(F+22)=TR AND A(F+33)=TR THEN GOTO 214 
IF A(F)=TR AND A(F+12)=TR AND A(F+24)=TR AND A(F+35)=TR THEN GOTO 214 
NEXT F 
LET E=E+12 
LET A=E+11 
IF A<108 THEN GOTO 191 
RETURN 
FOR F=FI TO 7 
LET SP=SI+12 
IF A(SP)=0 THEN GOSUER 207:LET ER=1: RETURN 
NEXT F 
LET ER=0 
RETURN 
LOCATE 20,1 
PRINT " 
”» 
LOCATE 20,1 
PRINT "ESA* JUGADA NO ES VALIDA" 
FOR X=1 TO 2000 
NEXT X 
RETURN 
LOCATE 20,1 
PRINT "4 EN RAYA" 
FOR F=1 TO 100 
SOUND 100+INT (RNDXBO00),.5 
NEXT F 
LOCATE 21,1 
PRINT " 
LOCATE 20,1 
PRINT "HAS GANADO "CS 
LOCATE 21,1 
PRINT "PULSA UNA TECLA" 
IF INKEYS="" THEN GOTO 225 
LOCATE 20,1 
PRINT " 
LOCATE 20,1 
INFUT "QUIERES JUGAR OTRA PARTIDA (S/N) "3 As 
IF A$="S” OR A$="s"” THEN RUN 


231 1F A$<> 
232 CLS 

233 PRINT "A D 1 05" 
234. PRINT las======:=" 
235 END 


Este programa simula el juego de las 
cuatro en raya que hay en muchas ca- 
sas. El objetivo de este juego es conse- 
guir que cuatro de nuestras fichas estén 
en línea recta antes de que lo consiga 
nuestro contrincante. Aparte de lo difícil 
que pueda resultar esto, se plantea otro 
problema. El tablero sobre el cual juga- 
remos, está puesto verticalmente de ma- 
nera que no se puede poner una ficha en 
una fila si en la fila anterior no hay otra. 
Con esto se consigue que no podamos 
poner nuestra ficha en donde nosotros 
queramos. 


[ 
| 
y 
| 
| 
| 
] 


lA Estas son las tres maneras posibles de 
hacer 4 en raya, vertical, horizontal y 
ragonalmente. 


Este juego está planteado para dos ju- 

dores, aunque el ordenador hace de 
arbitro e indica quién es el jugador. A 
cada jugador le corresponde una ficha 
aterente y cada jugador tiene un turno 
para jugar. En este juego no se pueden 
variar las jugadas, por lo que es necesa- 
ño pensar mucho antes de poner nuestra 
Sicha. 


"N" AND A$<>"n" THEN GOTO 226 


Ou) 


* 


IG67TNRO 


. - »* - 


TURNO DEL TIA 1 


c> 
(DONDE As (CCOLLFILA) 7 Eds 
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Cuando el ordenador te pida tu juga- 
da tendrás que indicar la fila y la colum- 
na en la que te quieres posicionar, en 
este orden. Según esto, si te quieres mo- 
ver a la columna 5 de la fila H, tendrás 
que darle dicho movimiento a tu ordena- 
dor como HB. 

En el caso de que pusiese 5H en vez de 
H5, el ordenador no te hará caso y te vol- 
verá a preguntar. Puedes intentar, si quie- 
res, que el ordenador acepte cualquiera 
de las dos formas. 

Este programa aparecerá para el resto 
de los ordenadores en el tomo 8. 


Programa: Copy de pantalla 
lu para SPECTRUM 


Este quinto programa que vamos a ver 
a continuación sólo es válido para los 


a PROGRAMAS 


usuarios del SPECTRUM. Con él podréis ha- 
cer que cualquier pantalla, de cualquier 
juego, que os guste, se grabe en una cin- 
ta de cassette para, más tarde, poderla 
cargar para admirarla o experimentar 
con ella. 

Esta rutina es realmente útil para todos 
aquellos que les guste almacenar, ya 
sean sus propias pantallas o las de los 
juegos comerciales, en cintas de casset- 
te. 

A continuación os damos el listado en 
ensamblador para todos aquellos que 
quieran ver cómo funciona. 


PIRINEO 
¿* COPY DE PANTALLA MEDIANTE * 
¡% INTERRUPCIONES * 
RRA RR NOIR ON IR 
III 
¿% PROGRAMADO POR: 
3% 
j% CARLOS CORAL 
AS 

ORG 645279 

DEFW RUTINA 

ORG 65200 

LD A,254 

LD 1,5 

IM 2 

RET 


FHAR MIRROR HA RAR ARA 


RUTINA DI 
PUSH 
PUSH 
PUSH 
PUSH 
PUSH 
LD A,127 


IN A, (254) 
BIT 1,4 
CALL Z,TECLAZ 
RST 56 
POR 
POP 
POP 
POR 
POP 
POP 
RETI 
te 
AS 
É 
TECLAZ LD A,191 
IN A, (254) 
BIT 0,A 
RET NZ 
SCF 
LD A,255 
LD DE,6912 
LD 1X,16384 
CALL 1218 
RET 


Para todos los que estén interesados 
en esta rutina damos el listado del pro- 
grama en BASIC que se encarga de al- 
macenar este programa en CODIGO MA- 
QUINA en la memoria. 


COPY DE PANTALLA 


SMN MN MM MA 
* COPY DE PANTALLA ME-x% 
DIANTE INTERRUPCIONES+* 
FB M MMMM A 


PAPER O: BORDER O: INK 6: C 
653199 
PRINT ” 


80 PRINT ROz FLASH 1," 
EYENDO L.INEAS DATA E 

90 PRINT AT 10,73 "ESPERA UN MO 
MENTO" 

100 PRINT AT 12,8; "CHECKSUM = 

i 

105 LET SUMA=0 

110 RESTORE 5000 

120 FOR 1=0 TO 54 

130 READ A 

140 LET SUMA=SUMA+A 

150 POKE £5200+1,A 

150 PRINT AT 12,19; SUMA 

170 NEXT 1 

1735 POKE 645279,1331 POKE 65280, 
254 ; 

180 IF SUMA=9720 THEN GO TO 30 
0 

190 PRINT AT 14,133 FLASH 1;"ER 
ROR" 

200 BEEP 2,-10 

210 CLS 

.220 PRINT " Hay algun error en 
las lineas DATA."''" Repasalas 
antes de continuar" 

230 GO TOD 9999 

300 CLS 

310 PRINT AT 1,83 FLASH 1; "RUTI 
NA INSTALADA" 

320 PRINT *''" Para utilizarla 
solo tienes quepulsar las teclas 
symbol-shift yENTER a la vez" 

330 RANDOMIZE USR £5200 

1000 PAUSE O 
4900 REM rr MR E MIE A 
4910 REM ** LINEAS DE DATA *x* 
BOLO REM HIM NI R RM: 
4930 REM 
5000 DATA 62,2534,237,71,237,94,2 
01,243,245,197 
5010 DATA 213,229,221,229,253,22 
9,62,127,219,254 
5020 DATA 203,79,204,212,254,255 
1253,225,221,225 
5030 DATA 225,209,193,241,237,77 
,62,191,219 
5040 DATA 254,203,71,192,55,62,2 
55,17,0,27,221 
5050 DATA 33,0,64,205,1794,4,201 


Para utilizar esta rutina sólo necesitas 
hacer RUN al programa N.-* 2. Si has escri- 
to bien todos los números de las líneas 
DATA, te aparecerá un mensaje en la 
pantalla comunicándote que el progra- 
ma está almacenado en la memoria. 

Un vez que tenemos el programa en la 
memoria, para hacer que se ejecute, 
sólo tenemos que pulsar las teclas: 


SYMBOL-SHIFT y ENTER 


a la vez. Haciendo esto se grabará inme- 
diatamente la pantalla que estemos 
viendo en ese momento en el ordenador. 


O Notas sobre 
los programas 5 y 6 


Si tienes un ensamblador de Z80 y no 
te gusta en qué dirección de memoria 
hemos colocado la rutina, puedes poner- 
ta en otro lugar de la memoria y utilizarla 
en tus propios programas. 

La rutina no espera que pulses ninguna 
tecla más después de pulsar SYMBOL- 
SHIFT y ENTER. Por ello es conveniente que 
tengas la cinta y el cassette preparado 
antes de pulsarlas. 

El programa que acabamos de ver gra- 
dba la pantalla pero no graba ninguna ca- 
pecera. Como sabes, si no está grabada 
la cabecera, el SPECTRUM no puede leer 
'a pantalla. Caben dos posibles solucio- 
nes a este problema: 


1. Realizar otra rutina en CODIGO MA- 
QUINA que se encargue de leer pantallas 
sin cabecera. - 

2. Hacer lo que te decimos a conli- 
nuación paso a paso: 


A. Coger una cinta virgen y rebobi- 
narla. 

B. Pulsar, a la vez, las teclas RECORD 
y PLAY. 
Dejar que la cinta corra durante 
10 segundos. 
Escribir en el SPECTRUM 


SAVE “nombre” SCREENS 


donde nombre es el nombre de la 
pantalla que quieres grabar. 
Pulsa la tecla ENTER dos veces. 
Cuando el ordenador haya gra- 
bado la cabecera, para el casset- 
te. 


— mm 


G. Yatenemos grabada la cabecera 
que necesitábamos. Ahora sólo 
nos queda ejecutar el programa 
4, cargar el juego del que quere- 
mos copiar la pantalla y cuando 
tengamos la pantalla a la vista 
pulsar las teclas SYMBOL-SHIFT y EN- 
TER. 


Puede que esta rutina no te funcione 
con algunos juegos, sobre todo si este 
fue realizado en los últimos dos años. Esto 
es debido a que muchos de los progra- 
mas comerciales escritos en CODIGO 
MAQUINA utilizan rutinas que usan las in- 
terrupciones para realizar el movimiento 
de los gráficos o la música del programa. 
Esto no tiene una fácil solución ya que 
cada programa necesitaría de una ruti- 
na específica, y que sólo sirviese para 1, 
sil queremos copiar sus pantallas. 


5, Master Mind numérico para 
m Spectrum 


El programa que aparece a conti- 
nuación, y que sólo funciona en el SPEC- 
TRUM, es el típico MASTER MIND al que to- 
dos hemos jugado más de una vez. La 
particularidad de este MASTER MIND com- 
putarizado es que podemos elegir la lon- 
gitud de la combinación a adivinar así 
como el número de intentos que nos per- 
mite el ordenador. 


MASTER MIND 


10 DEF FN céta+,a)=CHR$ 22+CHR 
a+CHR$ INT ((31-LEN a$)/2)+ab 
REM MASTER MIND 
REM1997 A.G.B 
GO SUB 1000 
GO SUB 1040 
REM COMIENZO DEL JUEGO 
CELS 
REM DIBUJA TABLERO 
LET CONT=1 
PLOT 0,151: DRAW 255,0: PLO 
T 127,159; DRAW 0,-159 
110 PRINT AT 2,03" JUGADA" AT 2 
1163 "MUERTOS HERIDOS" 
120 PRINT AT 0,23 "Jugada numero 
s "cont 
130 REM GENERA COMBINACION 
140 LET C3="" 
150 FOR I=1 TO NMUM 
160 LET NTEMP=INT (RIND*1O) 
170 LET C$=C$+5TR* NTEMP 
180 NEXT 1 


A PROGRAMAS 


190 INPUT "CUAL ES TU INTENTO 2 
"3 LINE 1% 

200 IF LEN I%+<>NNUM THEN  G0 SU 
B 1700: GO TO 190 

210 LET MUERTOS=0: LET HERIDOS= 
o 

220 DIM G(NNUM):+ DIM T(NNUM)> 
230 FOR I=1 TO NNUM 

240 1F C$(1)<>1$(1) THEN 60 TO 
260 

250 LET MUERTOS=MUERTOS+1+ LET 
G(l)=1: LET T(T)=1 

260 NEXT 1 

270 FOR I=1 TO NNUM 

280 FOR G=1 TO NNUM 

290 IF 1$(0)=C*(1) AND G(I)=0 A 
ND T(G)=0 THEN LET HERIDOS=HERI 
DOS+1: LET T(G)=1: LET G6(1)=1 
300 NEXT 6 


310 NEXT I 

320 PRINT AT CONT+3,03" “15 
¡AT CONT+3,19¿MUERTOS¡AT CONT+3, 
27; HERIDOS 


325 1F 1$=0% THEN GO TO 500 
330 LET CONT=CONT+1 

340 IF CONT>NJUG THEN GD TO 70 
o 

350 PRINT AT 0,18¿CONT 

350 60 TO 190 

500 REM GAND 

510 RESTORE 400 

520 READ A,B: IF As0 THEN GO T 
D 540 

530 BEEP A,B: 60 TO 520 

540 PRINT Oj FLASH 1;FN CS("-E 
NHORABUENA, ADIVINASTE=",0) 

550 PAUSE O 

555 INPUT "" 

560 60 TO 740 

600 DATA .i,1,.1,1,.1,27-1,3,+5 
,7,1,12,0,0 

700 REM PERDIO 

710 FOR I=12 TO -12 STEP -1: BE 
EP .2,¿1:3 NEXT 1 

720 BEEP 1,-12 

730 PRINT AT 0,0,,,, FLASH 15FN 
C$("-LO SIENTO,OTRA VEZ SERA-=", 
0) 

735 PRINT FN CS$("-LA COMBINACIO 
N ERA "+C$+" -",1) 

740 PRINT hOj INVERSE 1; FLASH 
1;FN CF("-PULSA UNA TECLA=",0) 
750 PAUSE O 

760 GO TO 40 

999 STOP 

1000 REM INICIALIZA VARIABLES Y 
COLORES 

1010 LET NNUM=4: LET NJUG=7 

1020 BORDER 1: PAPER 1: INK 7: € 
Ls 

1030 RETURN 

1040 REM MENU 

1050 CLS : PRINT EN C$("-MASTER 


MIND=",0) 
1060 PRINT FN C+("-ELIGE OPCION- 
1,3) 


1070 PRINT AT 5,33 "1-JUGAR. "¿AT 
7,31 "2-CAMBIAR NUMERO DE INTENTO 
S."¿AT 9,3 "3-LONG. DE LA COMEIN 
ACION" 

1080 PRINT AT 15,2; "COMBINACION 
DE "¿NNUM;z" DIGITOS." 

1090 PRINT AT 17,23" INTENTOS :"5 
NJUG 

1100 INPUT OPC 

1110 IF OPC<1 OR OPC>3 THEN GO 
TO 1100 

1130 IF OPC=2 THEN GO SUB 1500 
1140 1F OPC=3 THEN GO SUR 1600 
1150 IF OPC=1 THEN RETURN 

1150 G0 TO 1040 

1500 REM NUEVO NUMERO DE INTENTO 
Ss 


1510 INPUT “CUANTOS INTENTOS 2 " 

¡¿NTEMP 

1520 1F NTEMP>14 OR NTEMP<1 THEN 
GO SUB 1700: 60 TO 1540 

1530 LET NIJUG=NTEMP 

1540 RETURN 

1600 REM NUEVA LONGITUD DE COMBI 

NACION - 

1610 INPUT "DE QUE LONGITUD 2 "; 

NTEMP 

1620 IF NTEMP>11 OR NTEMP<2 THEN 


SUB 1700: 60 TO 1640 


LET NNUM=NTEMP 
RETURN 
REM ERROR 
BEEP 1,12: PRINT ROj FLASH 
C+("-ENTRADA NO ACEPTADA=", 
0): PAUSE O 
1720 RETURN 


El juego es muy sencillo. El ordenador 
pensará un número entre 3 y 10 dígitos 
de longitud y tú tienes que adivinarlo. 
Para ello cuentas con una serie de inten- 
tos variables entre 2 y 13. 


MASTER MIMD- 


"ELIGE OPCION 
1-JUGAR . 
2-CAMBIAR MUMERO DE INTENTOS. 
3-LONG. DE LA COMBINACIÓN 


COMBINACION DE 4 DIGITOS:. 
INTENTOS : 7 


lA Este es el menú del programa «Masted 
Mind». 


El ordenador te preguntará cuál crees 
tú que es la solución. Después de respon- 
der, el programa te dirá cuántos vivos y 
cuántos muertos acertaste. Pero, ¿qué 
son vivos y qué son muertos? Los vivos son 
aquellos dígitos que has adivinado y que 
además los has colocado en la misma 
posición en la que los tiene el ordenador. 
Los muertos son dígitos que también has 
adivinado, pero que has colocado en po- 
sición distinta de la que tiene el ordena- 


dor. Por ejemplo, si el ordenador pensó 
el número 34661 y tú le respondiste 
48866, éste te dirá que tienes un vivo y 
dos muertos. El vivo es el primer seis que 
escribiste, pues se encuentra en la mis- 
ma posición que el seis que pensó el or- 


El Master Mind en plena ejecución. 


eran, no los pusiste en su posición correc- 
ta. 

Por supuesto el ordenador no te dice 
qué números son vivos, cuáles son muer- 
tos ni cuáles no has acertado. Justamen- 
te en esto consiste el juego, en adivinar 
con el menor número de pistas posibles. 
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Puede que el número de intentos te pa- 
rezca pequeño. Si quieres que el ordena- 
dor te permita hacer más de 13 intentos 
sólo tienes que variar la línea 1520 y 
cambiarla por: 


1520 IF NTEMP>XXXX OR NTEMP<1 THEN 
GOSUB 1700:GOTO 1540 


donde XXXX es el número máximo de In- 
tentos que deseas tener. Por ejemplo, si 
quiero tener la oportunidad de realizar 
100 intentos la línea 1520 nos quedaría 
como: 


1520 IF NTEM> 100 OR NTEMP< 1 THEN GO- 
SUB 1700:GOTO 1540 


Este programa aparecerá en tomos su- 
cesivos para el resto de los ordenadores. 


INFORMATICOS 


AJO el nombre de 
«Análisis Informático» 
(o simplemente «aná- 
lisis») se suelen agru- 
par una serie muy va- 
riada de técnicas y 
actividades relacio- 
nadas con la racio- 
nalización y sistematización en el ámbito 
de la Informática. 

En los grandes Centros de Procesos de 
Datos u organizaciones informáticas, el 
proceso de análisis es fundamental para 
la adecuada organización y racionaliza- 
ción de los procesos. Suele haber perso- 
nas dedicadas específicamente a esta 
tarea: los «analistas». La misión de los 
analistas es servir de interlocutores con 
los usuarios finales de los procesos que 
se van a desarrollar, para definir con 
exactitud cuáles son esos procesos y sus 
características. Posteriormente conciben 
los programas informáticos mediante los 
cuales se desarrollarán esos procesos y 
preparan la documentación que los pro- 
gramadores necesitan para escribir los 
programas correspondientes del ordena- 
dor. Además, el analista redacta el resto 
de los documentos que aseguran una 
perfecta utilización de todo el sistema: 
normas para las personas que preparan 
los datos, instrucciones para el personal 
de explotación, etc. 

Aunque a primera vista la tarea del 
analista puede parecer simple, no lo es. 
En la fase de estudio de los procesos (en 
contacto con las personas que-los reali- 
zan, manualmente, y con los usuarios fina- 


TECNICAS 
DE ANALISIS 


EL ANALISIS DE SISTEMAS 


les) es usual encontrar un número enor- 
me de dificultades: las personales reali- 
zan, en ocasiones, muchas tareas de un 
modo rutinario sin saber bien por qué las 
hacen (o sin tener una idea clara de qué 
sucederá si las hicieran de otro modo, o 
cómo se pueden hacer de manera distin- 
ta...); las personas que utilizarán los resul- 
tados del proceso no saben con precl- 
sión, a veces, qué datos necesitan o qué 
otros les serían más útiles; con suma fre- 
cuencia junto con el proceso de meca- 
nización (o informatización) de los proce- 
sos hay que establecer cambios en los 
sistemas de trabajo manuales, para su ra- 
clonallzación o simplificación, etc. 

Después, cuando se va a diseñar el 
proceso, hay que tener amplla experien- 
cia para hacer que el ordenador trabaje 
de un modo óptimo de acuerdo con sus 
características y con las necesidades de 
los procesos a realizar (tipo de datos que 
se manejan, volúmenes, periodicidad, 
etcétera); además, hay que procurar 
que el sistema se diseñe de un modo tal 
que la programación sea lo más sencilla 
posible. 

Por otro lado, el control de todo el pro- 
ceso es complicado y hay que preparar 
numerosos mecanismos de comproba- 
ción de datos, contraste de unos totales 
con otros, puntos de «chequeo» periódl- 
cos, etc., incluso en la fase de programa- 
ción y puesta a punto del sistema ha de 
prever el analista una serie lo más ex- 
haustiva posible de pruebas a realizar 
para asegurar el perfecto funcionamien- 
to de cada programa y del conjunto. 


Para el desarrollo de todas estas actil- 
vidades el analista conoce y utiliza un 
conjunto de técnicas específicas que 
aseguran el éxito de su trabajo (aparte, 
claro está, del conocimiento general de 
a máquina y otros conocimientos infor- 
máticos): se suelen plasmar los diseños en 
dossieres ya estructurados (con lo que se 
asegura la uniformidad y coherencia de 
la información); 


ESTRUCTURA TIPICA DE UN DOSSIER DE 
ANALISIS DE UN PROGRAMA 


1. OBJETO DE UN PROGRAMA O UNIDAD 

DE TRATAMIENTO (U,T.). 
1.1. Objeto del tratamiento. 

Descripción general, descrip- 
ción de los resultados a obte- 
ner, etc. 

1.2. límites de esta U.T. 

Situación de la U.T. en el con- 
junto del sistema global pro- 
puesto, referencias a otros 
documentos o manuales de 
interés, etc. 

2. DESCRIPCION DE FICHEROS DE ENTRA- 
DA. 

Nombre de los ficheros, caracterís- 
ticas físicas (longitud de registros, 
factor de bloqueo), organización 
(tipo de registros, forma de archivo, 
etcétera), diseño del fichero (regis- 

tros), procedimientos de actualiza- 
ción, etc. 

3. DESCRIPCION DEL TRATAMIENTO, 
Resumen descriptivo, ordinograma, 
lenguaje a utilizar, ficheros interme- 
dios, utilización de programas es- 
tándar, evaluación de ocupación 
de memoria, tiempos de proceso, 
etcétera. 

4. DESCRIPCION DE LAS SALIDAS. 
Ficheros de resultados, manteni- 
miento de estos ficheros, ficheros 
de seguridad, diseño de salidas im- 
presas (su utilización, sus caracte- 
ísticas, etc.). 

5. ANEJOS 

Diseños de registros. 


Procedimientos de cálculo (fórmu- 
las, decimales, redondeos), etc. 


Constantes y tablas a utilizar en los 
cálculos. 

Codificación: códigos utilizados en 
el proceso. 


Controles, seguridades. 
Procedimientos de modificaciones 
futuras, etc. 


se utilizan métodos adecuados de repre- 
sentación, concisos y claros (ordinogra- 
mas, tablas de decisión, etc.); se diseñan 
los ficheros, los registros, etc., en formula- 
rios preimpresos que ayudan a controlar 
una información completa y clara; se uti- 
lizan tablas de comprobación —check- 
list (con listas de aspectos a considerar, 
para no olvidar ningún detalle)—; se de- 
sarrollan técnicas específicas de conser- 
vación para una eficaz obtención de los 
datos cuando se estudian (con los usua- 
rios externos) los problemas que se van 
a mecanizar; se manejan un conjunto de 
tablas y soluciones típicas para la resolu- 
ción de numerosas dificultades que sue- 
len surgir, etc. 

El conocimiento, aunque sea somero, 
de estas técnicas entendemos que es su- 
mamente interesante para cualquier per- 
sona que desee tener una mínima forma- 
ción en Informática, pues, aparte de la 
curiosidad que produce conocer cómo 
trabajan los profesionales de los grandes 
Centros de Informática, la mayoría de es- 
tos procedimientos son aplicables para 
el programador individual que utiliza un 
ordenador personal. En efecto, todas es- 
tas técnicas y trucos le facilitarán la de- 
finición del problema que Vd. personal- 
mente quiere resolver en su casa o en su 
oficina, le ayudarán a plasmar en un do- 
cumento (ordinograma, tabla de deci- 
sión, diseño de registro, etc.) la informa- 
ción que ha de manejar (con lo cual sim- 
plificará y optimizará su posterior tarea 
de programación), le ayudarán a Ir «do- 
cumentando» sus trabajos, etc. 

Expondremos sucesivamente el tipo de 
documentos y diseños que se suele ma- 
nejar en el análisis informático, junto con 
técnicas y trucos, de preparación de ta- 
reas, técnicas de organización de intor- 
mación, listas de comprobación, etc. 


ALGORITMOS 


OS matemáticos em- 
plean la palabra «al- 
goritmo» para referir- 
se a un conjunto de 
reglas o pasos bien 
definidos que permi- 
ten realizar un cálcu- 

: lo determinado. Esta 
palabra proviene del nombre del mate- 
mático árabe Abur Jáfar Mohamed Ibn 
Musa al-Jowarizmi, que vivió en el siglo IX 
y que fue famoso durante toda la Edad 
Media, 

En realidad los algoritmos no fueron in- 
ventados por el científico que les legó su 
nombre, pues ya se utilizaban en Meso- 
potamia dos mil años antes de Cristo, 
donde se disponía de sistemas de nume- 
ración relativamente complejos, que 
permitían realizar operaciones con nú- 
meros fraccionarios y resolver ecuacio- 
nes de segundo grado. 

Algunos de los algoritmos antiguos se 
resolvían utilizando maquinarias espe- 
ciales. Una de las más sencillas y flexibles 
era el ábaco, inventado probablemente 
en Oriente Próximo durante el segundo 
milenlo antes de Cristo y perfeccionado 
en China dos mil años después de su ori- 
gen. El ábaco permite realizar operacio- 
nes aritméticas sencillas (sumas, restas, 
multiplicaciones y divisiones) mediante 
reglas bien definidas, que pueden llevar- 
se a la práctica con gran rapidez. 

Un algoritmo puede representarse es- 


quemáticamente de muchas maneras di- 


ferentes, aunque equivalentes entre sí. 


TECNICAS 
DE PROGRAMACIÓN 


Por ejemplo, mediante un conjunto de re- 
glas numeradas como las siguientes: 


1. Tomamos un número entero que lla- 
maremos X. 

2. Dividimos X entre 2 y calculamos el 
cociente y el resto. 

3. Si el cociente no es cero, sustitui- 
nos X por el cociente y volvemos al paso 


4. Si el cociente es cero, damos como 
solución la sucesión de todos los restos 
obtenidos en orden inverso. 


Veamos un ejemplo de aplicación del 
algoritmo anterior: 


1. Sea X igual a 13. 
2. Al dividir X entre 2 obtenemos el 
cociente 6 y el resto 1. 

3. Como el cociente no es cero, ha- 
cemos X igual a 6 y repetimos el paso 2. 

4. Aldividir 6 entre 2 obtenemos el co- 
clente 3 y el resto 0. 

5, Como el cociente no es cero, ha- 
cemos X igual a 3 y repetimos el paso 2. 

6. Aldividir 3 entre 2 obtenemos el co- 
ciente 1 y el resto 1. 

7. Como el cociente no es cero, ha- 
cemos X igual a 1 y repetimos el paso 2. 

8. Aldividir 1 entre 2 obtenemos el co- 
ciente 0 y el resto 1. 

9. Como el cociente es cero, damos 
como solución la sucesión de los restos 
obtenidos en orden inverso (1 1 0 1) y ter- 
minamos la ejecución del algoritmo. 


Como se observará, el algoritmo ante- 
rior permite convertir un número cual- 


quiera al sistema de numeración de base 
2. Una modificación trivial del mismo al- 
goritmo permite convertir números decl- 
males a cualquier base. 

Los algoritmos pueden describirse tam- 
bién mediante organigramas, también 
llamados diagramas de bloques, que son 
representaciones pictóricas de las ope- 
raciones a realizar. Veamos, por ejem- 
plo, el organigrama equivalente al algo- 
ritmo anterior: 


En este organigrama, las cajas rectan- 
gulares representan acciones a realizar, 
“egándose a ellas por una entrada úni- 
ca y saliéndose, asimismo, una vez termi- 
mada la operación correspondiente, por 
un salida única. Los rombos, por el con- 
trario, no contienen acciones, sino pre- 
suntas cuya contestación representa la 
secisión que hay que tomar para conti- 
muar la marcha del programa. Por tanto, 
un rombo tlene siempre más de una sall- 
Sa. En el caso más sencillo, el de la figu- 
*32 anterior, la pregunta sólo podrá res- 


ponderse afirmativa o negativamente, por 
lo que las salidas serán dos, correspon- 
diendo una de ellas a la respuesta Sl y la 
otra a la respuesta NO, Sin embargo, tam- 
bién es posible hacer preguntas más 
complicadas o que puedan tener más 
de dos respuestas diferentes. Veamos al- 
gunos ejemplos: 


donde se tomará la salida de la izquier- 
da si el valor de X es igual a cero, la del 
centro si vale 1 y la de la derecha si tie- 
ne cualquier otro valor. Como se obser- 
vará, el punto de bifurcación anterior da 
lugar a tres posibilidades diferentes, pero 
es fácil comprender que este tipo de pre- 
guntas pueda dar lugar a un número lll- 
mitado de salidas posibles, como en el 
caso siguiente: 


y 


otros 
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Se observará que en este caso hemos 
abandonado la forma rómbica para 
adoptar la triangular, que permite dibu- 
jar un número mayor de salidas en el blo- 
que de bifurcación. 

Veamos, por último, el caso de una 
pregunta que puede responderse de dos 
o más formas posibles, diferentes del sim- 
ple Silo NO. 


Hemos mencionado dos tipos de blo- 
que: los rectangulares, que especifican 
una acción, y losrómbicos o triangulares, 
que definen los puntos de bifurcación 
condicional. Con ellos se pueden cons- 
truir organigramas o diagramas de blo- 
ques para todo tipo de programas, por 
complicados que éstos sean. En la prác- 
tica, pueden utilizarse también otros tipos 
de bloques diferentes para simplificar el 
dibujo y hacerlo más legible (bloques de 
comienzo o fin de programa, bloques de 
llamada de una subrutina, bloques que 
permiten enlazar entre sí hojas distintas 
de un organigrama muy grande), pero 
ninguno de éstos es estriciamente nece- 
sarlo. 

Para terminar, veamos el diagrama de 
bloques de un par de programas com- 
pletos: el primero dibuja en la pantalla 
una cubeta llena de agua en la que es- 
tán introducidos dos electrodos, por los 
que se supone circula una corriente 
eléctrica, pues de ellos surgen burbujas 
que ascienden a través del agua y desa- 


parecen rápidamente en el exterior. El 
diagrama de bloques correspondiente 
es el que se indica a continuación: 


Obsérvese que, además de los blo- 
ques rectangulares que representan ac- 
ciones y de los rombos que indican de- 
cisiones a tomar, existen en este diagra- 
ma dos bloques curvos, situados en sus 
extremos superior e inferior, respectiva- 
mente, y que no tienen otro objeto que 
indicar claramente cuál es el principio y 


el final del programa. En general, este or- 
ganigrama permanecerá invariable, 
cualquiera que sea el lenguaje de pro- 
gramación que vayamos a utilizar para 
construir el programa, con una excep- 
ción que veremos más adelante. Vea- 
mos, por ejemplo, una versión del mismo 
bloque en lenguaje BASIC: 


5 REM Dibujo de un tubo lleno de agua con dos electrodos 


cLs 


LOCATE 10,10:PRINT CHR$(191)+SPACES$ (20) +CHR$ (218) 
LOCATE 11,10:PRINT CHR$(179)+SPACES (20) +CHR$ (179) 
LOCATE 12,10:PRINT CHR$(179) +SPACES (20) +CHR$ (179) 
LOCATE 13,10:PRINT CHR$(195)+STRING$ (20, 196) +CHR$ (180) 
LOCATE 14,10:PRINT' CHR$ (179) +SPACES (20) +CHR$(179) 
LOCATE 15,10:PRINT CHR$(179)+SPACE$ (20) +CHR$ (179) 
LOCATE 16,10:PRINT CHR$(179)+SPACES (20) +CHR$ (179) 
LOCATE 17,10:PRINT CHR$(179)+SPACES (20) +CHR$ (179) 
LOCATE 18,10:PRINT CHR$ (192) +STRING$ (20, 196) +CHR$ (217) 


REM Dibujo de dos electrodos 


LOCATE 8,16:PRINT CHR$(218)+STRING$(12,196)+CHR$(180)+" "+CHR$(191) 
LOCATE 9,16:PRINT CHRS (179) +SPACES$ (8) +CHR$ (218) +STRINGS$ (5, 196) +CHR$ (217) 
LOCATE 10,16:PRINT CHR$(179)+SPACES (9) +CHR$ (179) 

LOCATE 11,16:PRINT CHR$(179) +SPACES (8) +CHR$ (179) 

LOCATE 12,16:PRINT CHR$ (179) +SPACES (8) +CHR$ (179) 

LOCATE 13,16:PRINT CHR$(197)+STRING$ (89, 196) +CHR$(197) 

LOCATE 14,16:PRINT CHR$(179)+SPACES$ (8) +CHR$ (179) 

LOCATE 15,16:PRINT CHR$(179)+SPACES (8) +CHR$ (179) 

LOCATE 16,16:PRINT CHR$(179)+SPACES (8) +CHR$ (179) 


REM Burbujitas 
FOR N=1 TO 10 
Xi=17:Y1=17 


FOR I=1 TO 3:X1=X1-1:LOCATE X1,Y1: PRINT "o"*LOCATE X1,Y1+7:PRINT"Oo"* NEXT 


X1=17 


FOR I=i TO 3:X1=X1-1:LOCATE X1,Y1r PRINT " ":LOCATE X1,Y1+7:PRINT" ":*NEXT 


NEXT N 


Comparando el programa con el orga- 
iarama se verá que un bucle FOR-NEXT 
puede representarse también haciendo 
230 únicamente de los bloques rectangu- 
“res y de los rombos. Volveremos sobre 
=sto más adelante. 

Al contrario del organigrama, este pro- 
rama depende no ya sólo del lenguaje 
de programación en que ha sido escrito 
¡BASIC en este caso), sino también de la 


máquina en que vaya a ejecutarse. La 
versión anterior corresponde, en concre- 
to, al ordenador personal de IBM y com- 
patibles, pero no producirá los resultados 
apetecidos en otras máquinas diferen- 
tes. Esto se debe a que las expresiones 
del tipo CHR$(218) representan un carác- 
ter gráfico en el IBM PC, pero pueden 
corresponder a otro carácter totalmente 
diferente en el SPECTRUM, a un tercero en 
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AMSTRAD, etc. Veamos cómo se modifi- Por último, vamos a ver el organigrama 
caría este mismo programa para otros or- de un programa que calcula la tabla de 
denadores: interés compuesto que puede obtenerse 


AMSTRAD: Cambiar todos los 
CHR$(191) por CHR$(156) 
CHR$(218) por CHR$(150) 
CHR$(179) por CHR$(149) 
CHR$(195) por CHR$(151) 
CHR$(180) por CHR+$(157) 
CHR$1192) por CHR$(147) 
CHR$(217) por CHR$(153) 
CHR$(197) por CHR$(159) 


COMMODORE: Cambiar todos los 
CHR$(191) por CHR$(174) 
CHR$(218) por CHR$(176) 
CHR$(179) por CHR$(98) 

CHR$ (195) por CHR$(171) 
CHR$(180) por CHR$(179) 
CHR$(192) por CHR$(173) 
CHR$(217) por CHR$+$(1899) 
CHR$(197) por CHR$(123) 


En todos los sitios donde pone 
SPACES (20) 

se pondrá 
FOR Z=1 TO 20: PRINT " "zz NEXT Z 


En todos los sitios donde pone 
SPACE+$ (8) 

se pondrá 
FOR Z=1 TO 8: PRINT " "32 NEXT Z 


En todos los sitios donde pone 
STRING$ (20, 196) 

se pondrá 
FOR Z=1 TO 20: PRINT CHR$(99)32 NEXT Z 


En todos los sitios donde pone 
STRING+$ (12,196) 

se pondrá 
FOR Z=1 TO 12: PRINT CHR$(99)5: NEXT Z 


También hay que cambiar todas las sentencias LOCATE. 
Asi, si vemos que en el listado pone 

LOCATE 17,10 
hay que sustituirlo por 

POKE 214,17: POKE 211,10 


MSX: Cambiar el orden en todas las sentencias LOCATE. 
Asi, si aparece en el listado 

LOCATE 12,10 
hay que sustituirlo por 

LOCATE 10,12 


partiendo de un capital determinado, y 
aplicándole distintos tipos de interés du- 
rante diversos períodos de tiempo. 


y 


Se observará que este diagrama es to- 
talmente lineal, pues se compone de un 
conjunto de acciones consecutivas que 
se suceden unas a otras sin bifurcación 
alguna. Es evidente, sin embargo, que al- 
guno de los bloques (como el que calcu- 
la la tabla de interés compuesto) corres- 
ponde a la realización de una acción re- 
lativamente compleja, que bajo ciertas 
condiciones será necesario especificar 
con más cuidado, descomponiéndola 
en un organigrama más detallado. Cuan- 
do hablemos de programación modular 
volveremos sobre este punto. Sin embar- 
go, esto no será necesario en este caso 
concreto, pues el lenguaje que vamos a 
utilizar (APL) para construlr el programa 
correspondiente al organigrama de la fi- 
gura es lo bastante potente como 
para que el cálculo de la tabla comple- 
ta de interés compuesto pueda realizar- 
se en una sola instrucción, por lo que 
no será necesario aumentar el detalle 
del diagrama de bloques 

Esta es, precisamente, la excepción a 
la regla de que hablábamos un poco 
más arriba. Es verdad que, en general, el 
organigrama puede ser independiente 
del lenguaje de programación. Pero 
cuanto más potente sea éste, menor será 
el grado de detalle al que habrá de lle- 
gar el diagrama para resolver un proble- 
ma concreto. 

El programa representa la realiza- 
ción del diagrama de bloques anterior 
en el lenguaje APL, junto con el resultado 
de una ejecución de dicho programa. La 
correspondencia entre las lineas del pro- 
grama y los bloques de la figura es como 


sigue: 
Bloque n.?. Líneas n.- 
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RES+ INTERES 
11] '*DEME EL VALOR DEL CAPITAL' 

12] CAPITAL+O 

[3] '*DEME LOS VALORES DE LAS TASAS DE INTERES' 
[4] TASA+l 

[5] '*DEME LOS TIEMPOS DE INVERSION" 

[61] TIEMPO+D 

[7] VALOR + CAPITAL x (1+TASA+100) 0.14 TIEMPO 


[81 RES + *-* ,[11 7 0 + VALOR 
£9] RES + (7 0 + TIEMPO), [1] RES 
[210] RES + *P" ,=RES 

[111 RES + 


(* *,[13' ',[1] 4 14((PTASA), 1)PTASA),RES 


INTERES 
DEME EL VALOR DEL CAPITAL 
BD: 
100000 
DEME LOS VALORES DE LAS TASAS DE INTERES 
D: 
10 10.5 11 11.5 12 
DEME LOS TIEMPOS DE INVERSION 
a: 


A 146410 161051 177156 194872 214359 
10.5| 149090 164745 182043 201157 222279 
14.0/ 151807 168506 187041 207616 230454 
154561 172335 192154 214252 238891 
157352 176234 197382 221068 247596 


LOGO 


INTRODUCCION 


ODOS sabemos que, 
en la actualidad, 
existen muchos len- 
guajes de programa- 
ción, es decir, dife- 
rentes formas de de- 
cirle al ordenador lo 

2 que deseamos que 
haga. Lo que ocurre es que cada uno de 
ellos tiene unas caracteristicas que le ha- 
cen ser más utilizado en unas áreas que 
en otras. En concreto, el LOGO, desde su 
nacimiento, ha tenido como objetivo el 
estar orientado a niños y a jóvenes. Por 
ello, sus principales aplicaciones tien- 
den a ser aquellas relacionadas con este 
tipo de usuarios. 

Así, por ejemplo, es el lenguaje que 
más se utiliza a la hora de introducir la in- 
tormática en la escuela. Y esto no es por 
casualidad o por capricho, sino porque 
tiene ventajas que otros lenguajes no po- 
seen. Además de ser un lenguaje que re- 
sulta bastante fácil de aprender, ayuda 
a entrar en el mundo de la Informática (a 
conocer sus conceptos fundamentales, 
como son los procedimientos, variables, 
instrucciones, memoria...) de una mane- 
ta sencilla y casi como si fuera un juego. 
Por otro lado, no sólo nos permite realizar 
dibujos, sino que también se puede utili- 
zar para resolver problemas más compll- 
cados (algunos parecidos a los que se 
plantean en el colegio). 

Para comprobar que esto es cierto, lo 
mejor es aprender cómo podemos hacer 
gue el ordenador haga lo que nosotros 
gueramos empleando este lenguaje. Va- 
mos a empezar. 


Cómo nos comunicamos 
con el ordenador 


Una vez que nuestro ordenador tiene 
cargado en su memoria el LOGO (es de- 
cir, entiende este lenguaje), podemos 
darle una serie de órdenes para que 
haga to que nosotros queramos. Pero es- 
tas órdenes no se las podemos dar de 
cualquier manera, de la misma forma 
que a un chino no le podemos hablar en 
castellano porque no nos entendería. 
Para que el ordenador comprenda lo 
que le decimos hay que usar unas pala- 
bras especiales llamadas comandos. 


Cuando queramos que el ordenador se 
entere de lo que nosotros deseamos que 
haga se lo tenemos que escribir por me- 
dio del teclado. El teclado es una espe- 
cie de máquina de escribir con una serie 
de teclas que contienen las letras, los nú- 
meros y otros caracteres especiales que 
luego vamos a necesitar para escribir de- 
terminadas órdenes. 


1000 


Además, una vez que hemos dado una 
orden, el ordenador nos ha de enseñar si 
realmente la ha cumplido o no. Para ello, 
utiliza la pantalla, que es como una tele- 
visión en la que no se ven películas o di- 
bujos animados, sino los dibujos o resul- 
tados de lo que le hemos mandado ha- 
cer. 


a El mundo de la Tortuga 


Cuando el ordenador está dispuesto 
para cumplir las órdenes que le demos 
usando los comandos del lenguaje 
LOGO (palabras especiales que él en- 
tiende), en la pantalla nos aparecerá lo 
siguiente: 


En el centro tenemos un triángulo (V) 
que representa a una tortuga. Esta tortu- 
ga va a ser la que va a realizar lo que no- 
sotros le digamos. Como podemos ver, su 
posición inicial es estar en el centro de 
la pantalla y mirando hacia arriba. 

La Interrogación (?) nos dice que la tor- 
tuga está esperando a que le demos una 
orden. 


Por último, el cuadradito (MW) se llama 
cursor y sirve para irnos mostrando lo que 
nosotros escribamos en el teclado. Por 
ejemplo, si escribimos hola nos quedará: 


Sólo nos queda saber cómo decirle a 
la tortuga que cumpla la orden que le he- 
mos dado. Para ello, existe una tecla que 
hemos de pulsar cada vez que queramos 
que la tortuga ejecute un comando. Esta 
tecla se llama Return O Enter y en nues- 
tro teclado puede aparecer así: 


Ahora que ya sabemos cómo comunli- 
camos con la tortuga, vamos a empezar 
a aprender su lenguaje: el LOGO. 


' Primeros comandos 


Nuestra tortuga lleva en su espalda un 
lápiz que le permite ir pintando cuando 
anda, es decir, al moverse va dejando un 
rastro. Aprovechando esto, podemos 
darle órdenes para que haga dibujos. 

Lo primero que le podemos decir es 
que vaya hacia delante. Para eso, se uti- 
liza el comando 


avanza n 
o en abreviatura 
avn 


donde n es el número de pasos que que- 
remos que de. 


Así, si le decimos av 10 y damos a la te- 
cla de Return, en la pantalla aparecerá: 


La tortuga ha ejecutado nuestra orden 
y espera que le demos otra. 

Si ahora queremos que vaya hacia la 
derecha, le hemos de decir que tuerza 
hacia este lado. Para ello, el comando 
que hemos de usar es: 

giraderecha m 
o en abreviatura . 
gd m 
siendo m el número de grados que que- 
remos que gire. 

Por el contrario, si queremos que vaya 

hacia la izquierda, el comando es: 


glralzquierda m 

o 

gi m 
Por último, si en lugar de avanzar quere- 
mos que ande hacia atrás, el comando 
es: 

retrocede n 

(e) 

re n 
siendo n el número de pasos. 

Veamos el resultado de ejecutar algu- 

nos comandos de este tipo: 


HARINA] 


Primeros dibujos 


Vamos a decirle a la tortuga que pinte 
un cuadrado. Para ello, le tenemos que 
dar las siguientes órdenes: 


PROGRAMA 1 
20 


90 


pa LOGO 


Como resultado tendremos: 


Si ahora queremos dibujar un rectángu- 
lo, primero hemos de borrar el dibujo an- 
terior. Para decirle a la tortuga que borre 
todo lo que haya pintado en la pantalla 
y vuelva a su posición original (en el cen- 
tro y mirando hacia arriba) usamos el co- 
mando 


borrapantalla 


bp 


Tras mandar a la tortuga que lo ejecu- 
te nos quedará: 


Ya podemos dibujar nuestro rectángu- 
lo. Para ello, escribimos lo siguiente: 


Si queremos que la tortuga vuelva a su 
posición inicial sin borrar nuestro dibujo, 
hemos de escribir el comando: 


centro 


Por el contrario, si queremos que la tor- 
tuga borre el dibujo, pero que no vuelva 
a su posición inicial, el comando es: 


limpia 


Por tanto, si damos la orden bp, esto es 
equivalente a decir primero centro y lue- 
go limpia: 


BP = CENTRO + LIMPIA 
Para comprobarlo: 


? CENTRO 
7m 


? CENTRO 
9 LIMPIA 
Jm 


7 CENTRO 
2 UMPIA 


Vamos a hacer que ahora la tortuga 
pinte una letra, por ejemplo, la “C”. Para 
ello, le damos las siguientes órdenes: 


Ya está. Nos ha quedado: 


Ahora vamos a dibujar una bandera. 
Hemos de escribir lo siguiente: 


y nos queda: 


Ahora os toca a vosotros. Podéis dibu- 
jar lo que se os ocurra. 


(m Os proponemos 


1. Haz que la tortuga pinte este labe- 
rinto: 


posición 
inicial de 
la tortuga 


LOGO 


2. Ahora pinta una escalera: 


3. Intenta una ventana: 


4. Pinta un cuadrado usando sólo los 
comandos Gl y RE. 

5. También puedes hacer que dibuje 
los números: 


[23536 BL 


6. Ahora algunas letras: 


MELO 
OPLALE 1 


| : 
. Giros más complicados 


Hasta ahora, en todos los dibujos que 
hemos realizado los giros de la tortuga 
eran de 90 grados. Pero existen figuras en 


las que hemos de hacer líneas oblicuas. 
Para ello, la tortuga debe avanzar o re- 
troceder de una forma inclinada. 

Vamos a verlo con un ejemplo. Supon- 
gamos que queremos dibujar unas mon- 
tañas de esta forma: 


Como vemos, para empezar, la tortuga 
no ha de girar 90, sino menos. Por tanto, 
el conjunto de comandos serían: 


Como se puede ver, podemos escribir 
en una misma línea varios comandos, 
siempre y cuando dejemos al menos un 
espacio en blanco entre ellos. 

Podemos pintar ahora un triángulo. Los 
ángulos de un triángulo son de 60 gra- 
dos. Pero si hacemos que la tortuga gire 
este número de grados no nos saldrá 
esta figura. Hemos de girar 120. Más ade- 
lante veremos por qué. 

Por tanto, tenemos que dando estas ór- 
denes: 


? AV 50 GD 120 


72 AV 50 GD 120 


7 AV 50 6D 120 


nos sale la figura que queríamos: 


Cómo cargar el Logo 


El Logo, al igual que el Basic, es un 
lenguaje de programación. Por ello es 
necesario que el Logo se encuentre 
en la memoria del ordenador. Si no lo 
estuviese el ordenador no sabría Logo 
y no podría entendernos. 

Para cargar el Logo sigue las 
instrucciones: 


SPECTRUM: 


1, Teclea en tu ordenador LOAD “* y 
pulsa la tecla ENTER. 

2. Introduce la cinta de Logo en tu 
lector de cassette y pulsa la tecla 
PLAY. 

3. El Logo se cargará y ejecutará 
automáticamente. 


MSX: 


Si tienes el cartucho: 

1. Apaga tu ordenador. 

2. Conecta el cartucho de Logo en 
el SLOT de expanxión. 

3. Conecta el ordenador. 

4. Ellogo aparece 
automáticamente. 


Si tienes la cinta: 


1. Teclea en tu ordenador 
CLOAD **,R y pulsa RETURN. 


Si ahora hacemos 


2. Introduce la cinta de Logo en el 
cassette y pulsa la tecla PLAY. 

3. El Logo se cargará y ejecutará 
automáticamente. 


Para cargar el Logo en el IBM tienes 
que meter primero el disquete del 


MS/DOS. Una vez que lo hayas hecho, 
lee las instrucciones que acompañan 
al disquete de Logo para poder 
cargarlo. 


AMSTRAD: 


Introduce el disquete con el sistema 
operativo CP/M. Cuando éste se haya 
cargado teclea la palabra Logo y 
éste se cargará y ejecutará 
automáticamente. 


COMMODORE: 


El Commodore no tiene Logo en 
español. El único Logo que hay para 
Commodore está en inglés. 

Aunque con estas instrucciones 
puedes cargar el Logo, siempre es 
conveniente que leas las 
instrucciones que te dieron con el 
programa para no cometer errores. 


le 1000 


nos queda un banderín: 


Ahora puedes dibujar muchas más co- 
sas que antes. 


Os proponemos 


1. Intenta dibujar estas figuras geomé- 
tricas. Como pista te damos el ángulo 
que la tortuga ha de girar: 


pentágono hexágono octógono 


Q06— 


2. Ahora sin pistas, pinta un paralelo- 
gramo: 


3. Dibuja un barco: 


4. Puedes dibujar un pueblo: 


ZA  KUNORVWXYZ 


PASCAL 


L PASCAL es el len- 
guaje más popular 
de los denominados 
«estructurados». Fue 
creado por el suizo 
Niklaus Wirth allá por 
el año 1970. 

: A los programado- 
res AcOMumbrados a otros lenguajes no 
estructurados como el BASIC o el FOR- 
TRAN, lo que les suele llamar la atención 
a primera vista del PASCAL es la nula, o 
casi nula, utilización de instrucciones del 
tipo GOTO, aunque,como se irá viendo a 
lo largo de la colección, esto no es más 
que la punta del iceberg. 

También suele dar la sensación de que 
para hacer un programa en PASCAL hay 
que escribir mucho «rollo»; sin embargo, 
veremos que ello, lejos de ser un incon- 
veniente, contribuye a hacer los progra- 
mas mucho más claros y a disminuir el nú- 
mero de errores que se cometen al pre- 
pararlos. 


Precisamente es éste el principal obje- 


tivo de los lenguajes estructurados, entre 
los que se encuentran, por ejemplo, ade- 
más del PASCAL, el ADA y el MODULA-2. 


El motivo de que, hasta fechas recien- 
tes, el BASIC haya sido el lenguaje más 
difundido entre los ordenadores perso- 
nales se debe a que, dada su simpleza 
—lo que supone una menor necesidad 
de memoria— y el hecho de que es un 
lenguaje «interpretado», los fabricantes 
de ordenadores personales lo escogie- 


ron para incorporarlo de fábrica a sus 
máquinas. Así, para programar en BASIC, 
normalmente lo único que hay que hacer 
es simplemente encender el ordenador 
y empezar a teclear el programa. 

Por el contrario, hasta hace pocos 
años, para programar en PASCAL, como 
normalmente es un lenguaje del tipo 
«Compilado», en general había que pa- 
sar por varias etapas. 

En primer lugar había que teclear el 
programa; para ello se utilizaba un «edi- 
tor», que es el tipo de programa que se 
emplea para escribir, por ejemplo, car- 
tas con ayuda del ordenador o este mis- 
mo artículo. El texto del programa así pre- 
parado se guardaba entonces en un «fi- 
chero» en disco o cinta. 

A continuación, se procesaba ese fi- 
chero para traducirlo al lenguaje que 
realmente entiende el ordenador, que es 
el denominado «código máquina». Para 
ello se utilizaba un programa «complla- 
dor» o traductor de PASCAL. 

Por último (y a veces tras un proceso 
adicional llamado en jerga informática 
«link-edición»), la traducción así obteni- 
da era entregada al ordenador para su 
ejecución. 

Esta pesada manera de proceder, que 
es la habitual con la mayoría de los len- 
guajes en los ordenadores grandes, tam- 
poco ayudó mucho a la difusión del PAS- 
CAL. 

Hoy día, sin embargo, existen para la 
mayoría de ordenadores personales pro- 
gramas editores-compliladores de PAS- 


á PASCAL 


CAL que, una vez cargados en la memo- 
ria del ordenador, permiten desarrollar 
los programas de una manera práctica- 
mente tan cómoda y rápida como con el 
BASIC, pero conservándose toda la po- 
tencia y enormes ventajas del PASCAL 
tradicional. 

En concreto, hay que citar el TURBO- 
PASCAL de la casa Borland que, funcio- 
nando en los ordenadores personales 
IBM y compatibles, se ha convertido en 
el programa compilador más vendido de 
la historia de la informática y ha contri- 
buido decisivamente a convertir al PAS- 
CAL en el lenguaje más popular de la ac- 
tualidad. 

Así pues, lo primero que tiene que ha- 
cer el lector es proveerse del programa 
compilador más adecuado para su orde- 
nador. Todos ellos suelen traer en su ma- 
nual claros ejemplos ilustando cómo 
proceder desde la escritura del progra- 
ma hasta que ese programa es puesto en 


program Contador; 


const 
Tope = 10; 

var 

Numero + integer; 


BEGIN 


witeln; 
for Numero:=1 to Tope do 


writeln; 


END 


(k Este programa presenta números desde 1 hasta el valor de TOPE X) 
(k al mismo tiempo, nos enseña los cuadrados de esos números kx) 


writeln (El valor limite es *,Tope); 


writeln (Numero:3,” al cuadrado es *,Numero X Numero); 


writeln ("FIN DE LA CUENTA.”) 


marcha. Dada la gran variedad de com- 
piladores existentes, nos procuraremos 
ceñir a lo largo de la colección a una 
versión de PASCAL más o menos están- 
dar, para que así los programas de ejem- 
plo funcionen en todos los casos con el 
minimo de cambios posible, sin perjuicio 
de que alguna vez se hagan incursiones 
en las peculiaridades de algún ordena- 
dor en concreto. 


Nuestro primer 


programa en 
e e ascaL 


Veamos un programa muy corto: 


Tras escribir el programa y seguir los 
pasos exigidos por nuestro compllador 
para ponerlo en marcha, saldrá lo si- 
guiente en la pantalla del ordenador: 

El valor 

al 

EN 

al 


ss pel 


Ad aLir 


ME LA CUENTA, 


Palabras reservadas 


En el programa hay unas palabras que 
está claro que no las hemos escogido no- 
sotros: program, const, var, integer, be- 
gin... Son lo que se denomina «palabras 
reservadas», es decir, palabras con un 
significado especial que no las podemos 
utilizar para lo que se nos antoje. 

En general, estas palabras las escribi- 
remos con minúsculas (aunque eso va al 
gusto de cada uno), pero ¡ojo!, puede re- 
sultar que nuestro compllador sea muy 
intolerante y nos exija escribirlas todo 
con mayúsculas, o todo con minúsculas; 
para salir de dudas lo mejor es mirar un 
ejemplo cualquiera en el manual. 


Identificadores 


También hay otras palabras escogidas 
por nosotros para dar nombre a algunas 
cosas del programa: Contador, Tope y 
Numero; las palabras de este tipo se lla- 
man «identificadores». 

Los identificadores se pueden escoger 
al gusto de cada uno, pero han de empe- 
zar por una letra, tras la cual se puede 
poner cualquier combinación de letras y 
cifras sin espacios en blanco por medio. 


V, BITIO, K2R, SY.J38 
serían identificadores válidos pero 
3Z, P/Q, AVI ON 


serían incorrectos y al intentar compilar 
un programa con ellos el ordenador nos 
avisaria de la existencia de un error. 


Normalmente procuraremos escribir los 
identificadores con minúsculas excepto 
la primera letra, pero hay que hacer la 
misma advertencia de antes: a la mayo- 
ría de los compiladores les da lo mismo 
que se pongan mayúsculas o minúsculas, 
pero primero hay que cerciorarse. Por 
otra parte, aunque en principio se pue- 
den escoger palabras larguísimas, cada 
compilador se suele fijar sólo en los ocho 
o diez primeros caracteres; por ello, pu- 
diera resultar que para él las palabras Es- 
ternon y Esternones fueran una misma 
cosa. 


El lector atento se habrá hecho ya la si- 
guiente pregunta: ¿y qué pasa con eso 
de «Este programa...» O «El valor...»? 


Es evidente que no son palabras reser- 
vadas ni identificadores; como veremos 
en otro momento, son comentarios y tex- 
tos y, en principio, podemos escribirlos 
como más nos apetezca, sin restricción 
alguna. 


Para terminar, la palabra «wrlteln» es un 
caso especial; es del tipo llamado «iden- 
tificador predefinido», es decir, tiene un 
significado especial (sirve para escribir 
cosas en la pantalla), PERO la podríamos 
utilizar para algo distinto (aunque, lógi- 
camente, ya no serviría para lo de an- 
tes). Sin embargo, y para no complicar- 
nos la vida, los identificadores predefini- 
dos los vamos a considerar como pala- 
bras reservadas y no volveremos a hablar 
de ellos (al menos hasta que no sepamos 
mucho más PASCAL). 


' El programa más corto 


El programa más simple imaginable en 
PASCAL sería el siguiente: 


program MasCorto; 
begin 
end, 


y si lo intentamos compilar no habrá nin- 
gún problema, aunque al ejecutarlo des- 
cubriremos sin sorpresa que no sirve ab- 
solutamente para nada. 


Los programas, en general, sirven para 
procesar datos según una serle de ins- 


PASCAL 


trucciones. Un programa PASCAL tiene 
por ello dos zonas bien diferenciadas 
para describrir los datos y las instruccio- 
nes, quedando siempre su estructura así: 


program NombreDelPrograma; 


Zona de descripción de datos 


begin 


Zona de instrucciones | 


end. 


Es decir, siempre hay una «cabecera» 
formada por la palabra reservada «pro- 
gram» seguida de algún identificador 
que dé nombre al programa; la cabece- 
ra se termina con un punto y coma. 

Tras ella vendría la descripción de los 
datos; como el programa MasCorto no 
tiene datos, carece de esta zona. 

Por último, vendrían las Instrucciones 
del programa enmarcadas por las pala- 
bras reservadas «begin» y «end» que en 
inglés significan, respectivamente, em- 
pezar y terminar. Como el programa Mas- 
Corto no tiene instrucciones, end se en- 
cuentra justo a continuación de begin. Al 
igual que un párrafo, un programa aca- 
ba siempre con un punto final. 


Hay un detalle muy importante del PAS- 
CAL: podemos utilizar las líneas que que- 
ramos para escribir un programa siempre 
que, eso sí, no partamos entre dos líneas 
ninguna palabra; incluso se podría escri- 
bir un programa en una sola línea lo bas- 
tante larga. También se pueden separar 
las palabras todo lo que se quiera. 

Por ello, probemos a compilar los si- 
guientes programas: 


program 
MasCorto 


begin 
end, 


program MasCorto; begin end. 


Como ejercicio, podríamos probar a 
reagrupar las diferentes partes del pro- 
grama Contador a nuestro gusto buscan- 
do siempre, por supuesto, la máxima cla- 
ridad, y de paso, cambiar los identifica- 
dores por otros distintos. 

NOTA: Con algunos compiladores la 
cabecera puede que tenga un aspecto 
ligeramente distinto, como, por ejemplo: 

program NombreDelPrograma 
(input, output); 


Si es ese nuestro caso, la pondremos 
así sin preocuparnos más de ello por el 
momento. 


N sistema operativo 
es un conjunto de 
programas que facili- 
tan la comunicación 
entre la parte pura- 
mente física del orde- 
nador (el hardware) y 

el usuario, a la vez 
que plate al máximo los recursos y 
posibilidades de la máquina para que su 
uso sea el óptimo. 


USUARIO 


ÍA El usuario no se comunica directamente con la 


máquina, sino que lo hace con el sistema operativo, y 
éste con el ordenador. 


[|] 


OTROS LENGUAJES 


¿QUE ES UN SISTEMA OPERATIVO? 


Básicamente, los cometidos de un sis- 
tema operativo se pueden englobar en 
tres grupos: 

— Gestión del propio sistema ordena- 
dor, es decir, supervisar y controlar tanto 
el funcionamiento de la Unidad Central 
de Proceso como de los dispositivos pe- 
riféricos (pantalla, impresora, disquette, 
disco duro, etc.). 

— Gestión de las tareas que se le en- 
cargan a la máquina, lo cual incluye: 


MAQUINA 


__ A 


OTROS LENGUAJES 


. Planificación de los trabajos, para 
conseguir una utilización del sistema lo 
más eficiente posible. Para ello se asig- 
nan prioridades a los trabajos encomen- 
dados, de manera que se ejecutan pri- 
mero los de más alta prioridad, normal- 
mente con poca utilización de los recur- 
sos del sistema (tiempo de procesador, 
espacio de memoria y dispositivos peri- 
féricos), y se dejan los últimos los traba- 
jos de baja prioridad y que necesitan de 
una utllización más exhaustiva de esos 
recursos. 

. Establecer y supervisar las comuni- 
caciones con el entorno, tanto si son de 
entrada (carga de programas y datos) 
como si son de salida (entrega de resul- 
tados). 

e Asignación de los recursos del siste- 
ma a los distintos programas en ejecu- 
ción, que compiten. entre ellos por tales 
recursos y podrían provocar por tal moti- 
vo situaciones de conflicto, que deben 
ser solucionadas por un “árbitro”. 


— Gestión de los datos, que incluye 
controlar el sistema de ficheros tanto en 
su estructura como en el acceso a los 
mismos, así como los movimientos de los 


TRABAJO 2 


ÉS Ejecución de trabajos por lotes. 


datos entre los dispositivos de E/S y la 
memoria principal. 


'O Distintos tipos de sistemas 
operativos 


Según los modos de operación de un 
sistema operativo podemos clasificarlos 
en varios tipos esenciales, aunque algu- 
nos sistemas actuales permiten a un or- 
denador trabajar en modos distintos. Es- 
tos tipos a los que hacemos referencia 
son los siguientes: 


l. Sistemas operativos “batch” o se- 
cuenciales por lotes. Permiten ejecutar 
los trabajos uno a uno de una manera es- 
triciamente secuencial. Los programas 
se pueden ejecutar nada mas ser intro- 
ducidos, o memorizarse en algún dispo- 
sitivo de almacenamiento para ejecutar- 
se más tarde, Un sistema funcionando en 
modo “batch” no necesita la atención 
del usuario durante la ejecución de los 
trabajos, en contraposición con los tipos 
siguientes, que son sistemas interactivos 
con el usuario, 


TRABAJO 4 


2. Sistemas operativos monousuario. 
Sólo son capaces de atender exclusiva- 
mente a un usuario (de ahí su nombre). 
Son el tipo de sistemas operativos que 
trabajan sobre la mayoría de los ordena- 
dores personales. Tienen la ventaja de 
que su aprendizaje y utilización es muy 
sencilla, pero, por contra, sus prestacio- 
nes son más bien escasas. 

3. Sistemas operativos multitarea. 
Con ellos el ordenador es capaz de eje- 
cutar varias tareas (varios programas) de 
manera simultánea, lo cual no implica la 
existencia de varios procesadores. Estas 
tareas pueden ser encomendadas por 
un mismo usuario, el cual puede supervi- 
sarlas a la vez mediante las oportunas 
venianas abiertas en pantalla. 

4. Sistemas operativos multlusuario. 
Permiten que el ordenador reparta su 
atención entre varios usuarios o puestos 
de trabajo, ejecutando en cada caso 
una sola tarea distinta (en caso de que 
el sistema sólo tenga un procesador cen- 
tral). No obstante, la velocidad de los 
procesadores es tal que los tiempos de 
espera de los usuarios son casi insignifi- 
cantes. 


TRABAJO 4 


DISCO 


TRABAJO 2 


[A Ejemplo de cómo trabaja un ordenador con $.0. 
multitarea. 


5. Sistemas operativos en tiempo real. 
El ordenador debe ser capaz de recibir 
datos tan rápidamente como lleguen, ya 
que en caso contrario se perderán. 


' Sistemas operativos para 
' ordenadores personales 


Hasta la aparición del primer micropro- 
cesador de 8 bits (el Intel 8080), capaz 
de configurar un microordenador tal y 
como hoy en día los conocemos, el con- 
cepto de sistema operativo estaba en- 
cuadrado en el ámbito de los miniorde- 
nadores y grandes sistemas Xmalníra- 
mes). Fue necesaria la aparición del mi- 
croprocesador Z-80 (de Zilog) para que 
se produjera la primera implantación ge- 
neralizada de un sistema operativo para 
microordenadores, que vino de la mano 
del CP/M, siglas de Control Program for 
Microprocessors (Programa de Control 
para Microprocesadores). Durante algu- 
nos años el CP/M fue el sistema operati- 
vo casi exclusivo de los microordenado- 


TRABAJO 3 


IMPRESORA 


TRABAJO 4 


s OTROS LENGUAJES 


res, ya que al adoptar este sistema los fa- 
bricantes permitían a sus equipos acce- 
der a toda la variada gama de progra- 
mas adaptados a CP/M que se estaba 
creando. Su cada vez mayor aceptación 
revirtió en el nacimiento de una bibliote- 
ca (cada vez más voluminosa) de aplica- 
clones que se podían ejecutar en cual- 
quier máquina, siempre que ésta traba- 
jara bajo CP/M. Fue así como se convir- 
tió en el sistema operativo por excelen- 
cla de los 8 bits. 

Otro sistema para micros de 8 bits (con- 
cretamente para el Rockwell 6502) es el 
APPLE,DOS. Este quizá sea, después de 
CP/M, el más implantado, debido sobre 
todo a que la firma norteamericana Ap- 
ple fue una de las pioneras de la revolu- 
ción microinformática. A pesar de la ex- 
clusividad de este sistema operativo 
(sólo se encuentra en microordenadores 


Apple y compatibles de otras firmas), su 
nivel de difusión es alto debido a la gran 
cantidad de programas de aplicación 
desarrollados para él en los últimos años. 

Importantes, también en el entorno de 
los 8 bits, son los sistemas operativos 
UCSD p-SYSTEM, desarrollado en la Univer- 
sidad de San Diego, en California, en un 
lenguaje de programación de alto nivel 
como es el Pascal, y OASIS, primer siste- 
ma operativo multiusuario creado para 
el microprocesador Z-80. 4 

Con la aparición del microprocesador 
Intel 8086, primer miembro de la familia 
Intel de 16 bits, comienza la historia de 
un nuevo sistema operativo, el MS/DOS, 
que actualmente es un estándar (en el 
ámbito de los micros de 16 bits) gracias 
a que IBM lo adoptó en 1981 como siste- 
ma operativo para su ordenador perso- 
nal (el famoso IMB PC). 


ORDENADOR 
CENTRAL 


TERMINAL 4 


TERMINAL 2 


TERMINAL 3 


A 
A Un ordenador central controla varios terminales 
mediante un sistema operativo multiusuario. 


Por último, un sistema que últimamente 
se está implantando con fuerza, sobre 
todo en los ordenadores personales de 
mayor potencia, es UNIX, aunque ya nos 
movemos en un entorno multiusuario, a 
diferencia de los sistemas operativos an- 
teriormente comentados que son mono- 
usuario (si bien, existen versiones multi- 
puesto para alguno de ellos, por ejem- 
plo, CP/M). 

La concepción de UNIX es totalmente 
distinta a la de MS/DOS o CP/M, ya que 


MS-DOS 


UNIX 


lA Ambito de los sistemas operativos para ordena- 
dores personales. 


estos dos últimos fueron concebidos para 
su uso exclusivo en microordenadores, 
mientras que UNIX fue concebido para su 
uso en grandes sistemas. Los avances ha- 
bidos en tecnología electrónica y la ma- 
yor potencia cada vez de los micropro- 
cesadores, han hecho posible su migra- 
clón hacia sistemas microinformáticos, 
con lo cual hoy en día es posible encon- 
trar UNIX en micros, minis y grandes orde- 
nadores. 


MICROORDENADORES 
DE 8 BITS 


MICROORDENADORES 
DE 46 BITS 


MICROORDENADORES Y 
MINIORDENADORES 
DE 16 y 32 BITS 
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